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CARTR I FILE/DEC-0 
INTERFACE 



INTRODUCTION This section describes the Tri-Data interface circuitry supplied with CartriFile 20 and 

CartriFile 40 magnetic, tape systems for operation with Digital Equipment Corporation 
PDP-8/E and -8/M computers. The interface equipment consists of a printed circuit board which installs in the computer’s 
OMNIBUS and a cable which interconnects the circuit board and CartriFile tape units. 



DESCRIPTION The CartriFile/DEC-0 Interface Assembly (10881) consists of the interface circuit board 

(10880-0) which installs in the computer’s OMNIBUS and the attached cable which 
connects to the rear of the tape unit, as shown in Figure 1. 



INSTALLATION The interface circuit board installs in the PDP-8E computer’s OMNIBUS. Before installing 

the board, check that the address jumpers and bits-per-word selection jumper are appropriate 
for your application. The standard factory-installed jumpers select octal addresses 31, 32, and 33 and BPW12, but they 
can be changed. Only the four highest significant bits are actually patched; the remaining two bits are automatically 
decoded. (Refer to “MAINTENANCE: Address Selection; Data Word Length” in this section.) 

After installing the circuit board in the OMNIBUS, connect PI to the rear panel of the CartriFile tape unit. Seat the connector 
firmly, then secure it to the rear panel using the screws provided. 



OPERATION The selection and operation of the CartriFile/DEC-0 Interface are described below. It is 

assumed that the user is familiar with the PDP-8 instruction repertoire and its usage. The 
instructions required to control the interface follow the same format as other PDP-8 I/O instructions. 




Selection 

The standard I/O addresses used by the interface are 
31, 32, and 33 (octal); however, the interface may be 
wired to the upper three addresses of any set of four 
I/O addresses whose low-order digit is 0 or 4 (refer to 
“MAINTENANCE: Address Selection” in this section). 

The standard factory -wired interface is wired for 12-bit 
transfers; however, 8-bit transfers are possible by moving a 
jumper on the interface board (refer to “MAINTENANCE: 
Data Word Length” in this section). 

I/O Instruction Set 

The CartriFile I/O instructions provide the capabilities of 
sensing status, issuing tape-motion commands, transferring 
data to or from the computer, or testing two CartriFile 
flags. All data are transferred between the interface and 
the PDP-8 accumulator (AC). The CartriFile I/O instruction 
set is the same for CartriFile 20 and CartriFile 40 tape units. 
The mnemonic and octal code for each are given below. 
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TRI-OATA 



“OR” Tape Status B OTSB 6312 
Load Tape Status B LTSB 6313 

Loads or inclusive-ORs the AC with the CartriFile “B” 
status bits. The record-error bit is 1 if an error was detected 
on the last input record; this bit is reset to 0 by each 
read-start command. The read-write bit is 1 if a read or 
write command is in progress. The on-line bits are 1 
if the corresponding tapes are on-line. 




0 1 



8 9 10 11 



=> 



AC 



“OR” Tape Status A OTSA 6314 
Load Tape Status A LTSA 6315 

Loads or inclusive-ORs the AC with the CartriFile “A” 
status bits. The busy, file-protected, and at-loadpoint 
bits are 1 if the appropriate condition is met for each 
tape. 
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Skip on CartriFile Status Change SCSC 6322 

The next instruction is skipped if the CartriFile 
status-change flag is set. This instruction also clears the 
status-change flag if the flag was found to be set. The 
status-change flag is set when: 

A tape completes reading a record. 

A tape completes writing a record. 

A tape arrives at loadpoint. 

A tape goes from on-line to off-line. 

A program interrupt will be generated when the 
status-change flag sets if interrupts are enabled. The 
flag is cleared by a computer RESET signal. 



Tape Action Command ACMD 6324 

The contents of the AC are sent to the interface and cause 
a write-stop, write-start, read-start, or loadpoint-search 
command to be sent to the CartriFile tape unit, depending 
upon which AC bits are set to 1. The latter three commands 
also require tape-select bits to be specified along with 
the command bit; simultaneous operation of multiple 
tapes is permitted only for loadpoint-search commands. 
Note that a loadpoint-search command must be issued to 



a tape before beginning each read or write pass across 
the tape; this resets special end-of-tape circuitry within 
the tape unit. Also note that if a loadpoint-search 
command is issued to a tape that is already at loadpoint, 
no tape motion and no status-change interrupt will occur. 




Skip on CartriFile Data Call SDCL 6332 



The next instruction is skipped if the data-call flag is 
set. The data-call flag sets each time a word of data 
is available for input while reading a record; it also sets 
each time a word of data must be output while writing 
a record. Normally, data calls occur every 777 Msec 
when 12-bit words are being read or written. The program 
has all 777 Msec in which to read a word from the tape 
unit before the next word overlays it; while writing, the 
program has about 660 Msec after the rise of the data-call 
flag in which to output the next word of data. A program 
interrupt will be generated when the data-call flag sets 
if interrupts are enabled. The flag is cleared by an 
OTB/LTB (see below); by a write-stop, write-start, or 
read-start command; or by a computer RESET signal. 



“OR” Tape Buffer OTB 6334 

Load Tape Buffer LTB 6335 

This is a bidirectional data-transfer command. If a record 
is being read, the command either loads or inclusive-ORs 
the AC with the next 12-bit input word. If a record is 
being written, the OTB outputs the contents of the AC 
to the CartriFile tape unit as the next 12-bit output 
word. Note that LTB used while writing clears the AC 
and outputs 12 zeroes. Either OTB or LTB clears the 
data-call flag. 
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CARTRIFILE PROGRAM A basic subroutine used to read records of up to 1023 words from a CartriFile tape is 
SUBROUTINES shown below. This subroutine does not use interrupts and has no provisions for splitting 

records longer than 50 words when load point is sensed; consequently, a tape long enough to contain all desired records 
should be used. The sequence of instructions used to “call” this subroutine is as follows: 



TAD TPBITS 
JMS CFIN 
IOSIZE 
IOADDR 



/LOAD INPUT TAPE COMMAND BITS. 
/GO ENTER SUBROUTINE. 

/INPUT AREA SIZE (BINARY 1-1023) 
/INPUT AREA STARTING ADDRESS. 



The accumulator is first loaded with a 12-bit word containing zeroes in bits 0-7 and a tape command bit corresponding 
to the desired input tape in bits 8-11 (see the ACMD instruction above). Upon exit from the subroutine, the link bit 
will be set if a read error occurred, bit 0 of the accumulator will be set if load point was sensed, and bit 1 will be set if an 
incorrect size record was read. Bits 2-11 of the accumulator will contain the binary number of words not read if the record 
was short; if bits 2-11 are all zero, the input record was too big for the input area, and the excess data words will be 
lost. The subroutine coding is as follows: 



CFIN, 0 





DCA CMDBIT 


/STORE READ COMMAND BIT. 




TAD I CFIN 


/GET INPUT AREA SIZE. 




ISZ CFIN 


/BUMP RETURN ADDRESS. 




CMA 


/COMPLEMENT INPUT SIZE. 




DCA IOCT 


/STORE INPUT COUNT BELOW. 




TAD I CFIN 


/ GET INPUT AREA ADDRESS. 




ISZ CFIN 


/ BUMP RETURN ADDRESS. 




DCA IOADDR 


/STORE INPUT ADDRESS BELOW. 




DCA STATUS 


/CLEAR STATUS WORD. 




TAD RDBIT 
TAD CMDBIT 


/GET READ COMMAND BITS. 


CFIN1, 


ACMD 


/ISSUE READ-START COMMAND. 




SDCL 


/TEST FOR READ-DATA CALL. 




JMP CFIN1 


/IF NOT, WAIT. 


CFIN 2, 


LTSA 


/ GET TAPES STATUS. 


AND CMDBIT 


/CLEAR UNWANTED BITS. 




SNA CLA 


/TEST FOR LOAD POINT. 




JMP CFIN3 


/IF NOT, GET TAPES STATUS. 




CCL CML RAR 


/SET LOAD POINT FLAG. 




DCA STATUS 


/STORE IN STATUS WORD. 


CFIN 3, 


LTSB 


/GET TAPES STATUS. 


RAL 


/ISOLATE READ-WRITE BIT. 




SZA CLA 


/TEST FOR END OF RECORD. 




JMP CFIN6 


/IF SO, GET RESIDUAL COUNT. 




SDCL 


/ TEST FOR NEXT DATA CALL. 




JMP CFIN2 


/IF NOT, WAIT. 




TAD IOCT 


/LOAD INPUT COUNT. 




SNA CLA 


/TEST FOR OVERSIZE RECORD. 




JMP CFIN4 


/IF SO, GO READ NEXT WORD. 




ISZ IOCT 


/BUMP INPUT COUNT. 




JMP CFIN 5 


/IF NON-ZERO, READ WORD. 


CFIN4, 


LTB 


/READ & IGNORE NEXT WORD. 


CLA 


/CLEAR A-C. 




JMP CFIN1 


/GO WAIT FOR END OF RECORD. 


CFIN5, 


LTB 


/READ NEXT WORD. 


DCA I IOADDR 


/ STORE NEXT WORD. 




ISZ IOADDR 


/ BUMP INPUT ADDRESS. 




JMP CFIN1 


/GO WAIT FOR NEXT RWC 


CFIN 6, 


TAD IOCT 


/GET INPUT COUNT. 


SNA 


/TEST FOR OVERSIZE RECORD. 
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TRI-DATA 





JMP CFIN7 


/IF SO, SET STATUS BIT 1. 




CMA 


/COMPLEMENT INPUT COUNT. 




SZA 


/TEST FOR CORRECT SIZE. 


CFIN7, 


TAD WLMASK 


/IF NOT, SET STATUS BIT 1. 




TAD STATUS 


/GET LOAD POINT STATUS. 




JMP I CFIN 


/RETURN TO MAIN PROGRAM. 


RDBIT, 


1000 




WLMASK, 


2000 




CMDBIT, 


0 




IOCT, 


0 




IOADDR, 


0 




STATUS, 


0 




A basic subroutine used to write records onto a CartriFile tape is shown below. This subroutine does not use interrupts 


and has no provisions 


for splitting records longer than 


50 words when load point is sensed; consequently, a tape long 


enough to contain all 


desired records should be used. The sequence of instructions used to “call” this subroutine is as 


follows: 








TAD TPBITS 


/LOAD OUTPUT TAPE COMMAND BITS. 




JMS CFOUT 


/GO ENTER SUBROUTINE. 




IOSIZE 


/OUTPUT AREA SIZE (BINARY). 




IOADDR 


/OUTPUT AREA STARTING ADDRESS. 


The accumulator is first loaded with a 12-bit word containing zeroes in bits 0-7 and the tape command bits corresponding 


to the desired output tapes in bits 8-11 (see the ACMD instruction above). Upon exit from the subroutine, bit 0 of the 


accumulator will be set if load point was sensed. The subroutine coding is as follows: 


CFOUT, 


0 






DCA CMDBIT 


/STORE WRITE COMMAND BIT. 




TAD I CFOUT 


/GET OUTPUT AREA SIZE. 




ISZ CFOUT 


/BUMP RETURN ADDRESS. 




CMA 


/COMPLEMENT OUTPUT SIZE. 




DCA IOCT 


/STORE OUTPUT COUNT BELOW. 




TAD I CFOUT 


/GET OUTPUT AREA ADDRESS. 




ISZ CFOUT 


/BUMP RETURN ADDRESS. 




DCA IOADDR 


/STORE OUTPUT ADDRESS BELOW. 




DCA STATUS 


/CLEAR STATUS WORD. 




CCL CML RTR 


/GET WRITE COMMAND BITS. 




TAD CMDBIT 




CFOUT1, 


ACMD 


/ISSUE WRITE-START COMMAND. 




SDCL 


/TEST FOR WRITE-DATA CALL. 




JMP CFOUT1 


/IF NOT, WAIT. 


CFOUT2, 


LTSA 


/GET TAPES STATUS. 




AND CMDBIT 


/CLEAR UNWANTED BITS. 




SNA CLA 


/TEST FOR LOAD POINT. 




JMP CFOUT3 


/IF NOT, GET TAPES STATUS. 




CLL CML RAR 


/SET LOAD POINT FLAG. 




DCA STATUS 


/STORE IN STATUS WORD. 


CFOUT3, 


LTSB 


/GET TAPES STATUS. 




RTL 


/ISOLATE READ-WRITE BIT. 




SNL CLA 


/TEST FOR END OF RECORD. 




JMP CFOUT5 


/IF SO, GO LOAD STATUS. 




SDCL 


/TEST FOR NEXT DATA CALL. 




JMP CFOUT2 


/IF NOT, WAIT. 




ISZ IOCT 


/BUMP OUTPUT COUNT. 




JMP CFOUT4 


/IF NON-ZERO, WRITE WORD. 




CLL CML RAR 


/ISSUE WRITE-STOP. 




ACMD 






JMP CFOUT2 


/GO WAIT FOR END OF RECORD. 
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TRI-DATA 



CFOUT4, 


TAD I IOADDR 


/LOAD NEXT OUTPUT WORD. 




ISZ IOADDR 


/ BUMP OUTPUT ADDRESS. 




OTB 


/WRITE NEXT WORD. 




CLA 


/CLEAR A-C. 




JMP CFOUT2 


/GO WAIT FOR NEXT WWC. 


CFOUT5, 


TAD STATUS 


/GET LOAD POINT STATUS. 




JMP I CFOUT 


/RETURN TO MAIN PROGRAM. 



A basic subroutine used to execute a load point-search command on one or more CartriFile tapes is shown below. This 
subroutine does not use interrupts; also, since the read-write subroutines shown above wait for a tape to become ready 
(i.e., stopped) before proceeding, this subroutine will not wait for tapes to reach load point. The sequence of instructions 
used to “call” this subroutine is as follows: 

TAD TPBITS /LOAD L-P SEARCH COMMAND BITS. 

JMS LOADPT /GO ENTER SUBROUTINE. 

The accumulator is first loaded with a 12-bit word containing zeroes in bits 0-7 and command bits corresponding 
to the tapes to be load point-searched in bits 8-11 (see the ACMD instruction above). Note that more than one tape may be 
load point-searched using a single call to the subroutine; also note that the link and accumulator will be zero upon exit 
from the subroutine. The coding is as follows: 



LOADPT, 


0 






DCA CMDBIT 


/STORE LOAD POINT COMMAND BITS. 


LP1, 


LTSB 


/GET TAPES STATUS. 




AND CMDBIT 


/CLEAR UNWANTED BITS. 




CIA 


/COMPLEMENT ON-LINE BITS. 




TAD CMDBIT 


/ADD COMMAND BITS. 




SZA CLA 


/TEST IF ALL TAPES ARE ON-LINE. 




JMP LP1 


/IF NOT, GO TEST AGAIN. 




TAD LPBIT 
TAD CMDBIT 


/GET L-P SEARCH COMMAND BITS. 




ACMD 


/ISSUE L-P SEARCH COMMAND. 




CLA CLL 


/CLEAR A-C & LINK. 




JMP I LOADPT 


/RETURN TO MAIN PROGRAM. 


LPBIT, 


0400 





MAINTENANCE The interface circuit board is essentially maintenance-free. Should a malfunction occur, 

isolate the faulty component using normal troubleshooting procedures. Refer to the logic 
diagram (10880) as a troubleshooting aid. For reference, Table 1 lists and describes the signals used between the interface 
and the CartriFile tape unit. The interface assembly contains 35 integrated circuits. The type of integrated circuits and 
their locations are listed in Table 2. 



Address Selection 

The standard addresses used by the interface are 31, 32, 
and 33 (octal); however, the interface may be wired to the 
upper three addresses of any set of four I/O addresses 
whose low-order digit is 0 or 4. 

The addresses are a result of address jumpers on the 
interface board which are labeled A, B, C, D, E, F, G, and 
H. These jumpers are coded as follows: 

0 1 

A B MSB 

C D 

E F 

G H 



The two least-significant bits are decoded internally. The 
standard board has jumpers at A, D, F and G, resulting 
in addresses 31, 32, and 33. 



Data Word Length 



The standard interface is wired for 12-bit transfers; 
however, the data word length is selectable at the interface 
board by the use of jumpers. Selection is as follows: 
jumper terminal K for 8-bit transfers; jumper terminal L 
for 12-bit transfers. With no jumper, the tape format will 
be 16 BPW; however, only 12 bits will be read into or 
written from the accumulator. 
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Table 1. CartriFile Connector J3 Input/Output Signal Specifications 







J3 


SIGNAL 




FUNCTION 


MNEMONIC 


PIN 


LEVEL 


REMARKS 


BITS PER WORD 


BPW8 


10 


True: 0 v 


To select BPW16, both BPW8 and BPW12 must 


SELECT 


BPW12 


12 


False: +5 v 


be kept False. All records must be read with the 
same BPW selected as when written. 


TAPE X SELECT 


T1SL 


36 


True: 0 v 


Must be True for the duration of the Read Start, 


20: 1,2 


T2SL 


34 


False: +5 v 


Write Start, or Load Point Search pulse. 


40: 1,2, 3, 4 


T3SL 


32 






T4SL 


30 






LOAD POINT 


LPSC 


49 


True: 0 v pulse, 


Tape selected will advance to Load Point and 


SEARCH 






0.5 to 5 jusee. 


stop. If writing or reading selected tape when 


COMMAND 






False: +5 v 


LPSC goes true, tape will advance to Load Point 
after completing the record. 


WRITE START 


WSTC 


47 


True: 0 v pulse, 


At trailing edge of this pulse, the controller is 


COMMAND 






0.5 to 5 /usee. 


committed to write a record on the selected 








False: +5 v 


tape. 


WRITE STOP 


WSPC 


51 


True: 0 v pulse, 


WSPC True commits the tape writing to end the 


COMMAND 






0.5 to 5 jusee. 


record after completing the last word previously 








False: +5v 


transferred by WXFR. 


READ START 


RSTC 


45 


True: 0 v pulse, 


At trailing edge of this pulse, the controller is 


COMMAND 






0.5 to 5 Msec. 


committed to read a record from the selected 








False: +5 v 


tape. 


WRITE MODE 


WM 


6 


True: 0 v 


Indicates the controller’s acceptance of the Write 


STATUS 






False: +5 v 


Start Command pulse; goes True at the leading 
edge of WSTC and stays True for the duration 
of the Write operation. 


READ MODE 


RM 


8 


True: 0 v 


Indicates the controller’s acceptance of the Read 


STATUS 






False: +5 v 


Start Command pulse; goes True at the leading 
edge of RSTC and stays True for the duration 
of the Read operation. 


TAPE X AT 


T1LP 


28 


True: 0 v 


True when associated tape is positioned at 


LOAD POINT 


T2LP 


26 


False: +5 v 


Load Point; False otherwise. 


STATUS 


T3LP 


24 






20: 1,2 
40: 1,2, 3, 4 


T4LP 


22 


! 




TAPE X FILE 


T1FP 


20 


True: 0 v 


Indicates status of the PROTECT/ENABLE 


PROTECTED 


T2FP 


18 


False: +5 v 


switch on the tape cartridge. True indicates 


STATUS 


T3FP 


16 




that tape is file-protected. 


20: 1,2 
40: 1,2, 3, 4 


T4FP 


14 






TAPE X ON 


TIOL 


44 


True: 0 v 


True indicates that a tape cartridge is inserted 


LINE STATUS 


T20L 


42 


False: +5 v 


in that slot. 


20: 1,2 


T30L 


40 






40: 1,2, 3, 4 


T40L 


38 






TAPE X BUSY 


T1BY 


52 


True: 0 v 


Indicates operating status of associated tape. 


STATUS 


T2BY 


50 


False: +5 v 


True indicates that tape is Load-Point Searching, 


20: 1,2 


T3BY 


48 




in Write mode, or in Read mode. Status line 


40: 1,2, 3, 4 


T4BY 


46 




stays True for duration of complete operation. 


POWER ON 


RESET 


5 


True: 0 v 


True only when power is OFF and for about 


STATUS 






False: +5 v 


100 msec after power is turned ON. This output 
is guaranteed to be at ground under a current 
sink condition with power OFF. 


WRITE WORD 


WXFR 


7 


True: 0 v pulse, 


Transfers the data word to be written on tape 


TRANSFER 






0.5 to 5 Msec. 


into the storage register of the tape unit. 








False: +5 v 


- 
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Table 1. CartriFile Connector J3 Input/Output Signal Specifications (Continued) 



FUNCTION 



MNEMONIC 



J3 

PIN 



SIGNAL 

LEVEL 



REMARKS 



READ OR 
WRITE CLOCK 



DATA BIT X 
LINE 

(1 through 16) 



RWCL 



11 



True: 0 v pulse, 
0.5 to 2 jusec. 
False: +5 v 



DBT1 

DBT2 

DBT3 

DBT4 

DBT5 

DBT6 

DBT7 

DBT8 

DBT9 

DBT10 

DBT11 

DBT12 

DBT13 

DBT14 

DBT15 

DBT16 



43 

41 

39 

37 

35 

33 

31 

29 

27 

25 

23 

21 

19 

17 

15 

13 



ONE: Ov 
ZERO: +5 v 
for Write input 
or Read output 



(During Write, 
DBT input must 
be held True at 
time of WXFR 
and maintained 
for 0.5 Msec 
(min.) following 
lagging edge of 
WXFR.) 



In Write mode, the first RWCL occurs at the 
end of a delay initiated with WSTC; subsequent 
RWCL outputs occur at a fixed rate until a 
WSPC input. After each RWCL, a WXFR pulse 
within a fixed period sets the input registers 
to the “1” or “0” condition of the DBT inputs. 
The registers are sampled for writing at the end 
of the fixed period. Timing for the various BPW 
settings is given below. A WSPC command 
occurring prior to the end of the fixed period 
inhibits writing that word and inhibits any 
subsequent RWCL. If neither WXFR nor WSPC 
inputs occur during the period after RWCL, 



the last 


previous word is 


repeated on tape. 


BPW 

True 


Time between 
RWCL pulses 


Period after RWCL 


during which 
WXFR may occur 


BPW8 


0.56 msec 


0.4 msec 


BPW12 


0.78 msec 


0.6 msec 


BPW16 


1.00 msec 


0.8 msec 



In Read mode, the first RWCL occurs 16 msec 
after RSTC (375 to 675 msec at beginning of 
tape), with subsequent RWCL outputs occurring 
as each data word is read from the tape.* DBT 
outputs remain on line, representing the data 
word, from the fall of the significant RWCL 
until the rise of the next RWCL. Timing for the 
various BPW settings is given below. 



BPW 


Nominal time between 


True 


RWCL output pulses 


BPW8 


0.56 msec 


BPW 12 


0.78 msec 


BPW16 


1.00 msec 



RECORD 

ERROR 



RERR 



True: 0 v 
False: +5 v 



True indicates that an error has occurred in the 
data output for this record. RERR goes True 
with RWCL and remains True until the next 
RSTC. 



+15 V BUS 



53 



Maximum current available is 200 ma. 



-15 V BUS 



Maximum current available is 200 ma. 



+5 V BUS 



55 

56 



Maximum current available: 

CartriFile 20 800 ma 

CartriFile 40 800 ma 



GROUND 

BUS 



GND 



Power Supply ground. 
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Table 2. Integrated Circuit Location and Type 



Table 2. Integrated Circuit Location and Type (Continued) 



Location 


Type 


Location 


Type 


ML10 


7404 


ML30 


7404 


ML11 


380 


ML33 


74123 


ML12 


8094 


ML34 


7402 


ML13 


8094 


ML35 


7410 


ML14 


8094 


ML36 


7404 


ML15 


8094 


ML37 


7430 


ML16 


8094 


ML38 


7404 


ML17 


7402 


ML39 


7402 


ML18 


7400 







Location 


Type 


Location 


Type 


ML1 


881 


ML19 


8094 


ML2 


8094 


ML20 


8094 


ML3 


8094 


ML21 


8094 


ML4 


8094 


ML22 


7404 


ML5 


380 


ML25 


380 


ML6 


8881 


ML26 


7474 


ML7 


380 


ML27 


8094 


ML8 


8094 


ML28 


7400 


ML9 


7420 


ML29 


8094 



SOFTWARE The CartriFile software package for the Digital Equipment Corporation PDP-8 series computers 

consists of the Tri-Data 8-010B-BIN CartriFile I/O Driver program and the Tri-Data 
8-006B-BIN CartriFile Exercise program. The program listings and instructions for operation follow this Interface Section. 






INTERRUPT ENABLE JUMPER 




C :002 (20/40) 



IK. 



Vcc. 




CARTRIFILE/PDP-8E INTERFACE BOARD ASSEMBLY 10880-0 










TRI-DATA 



10881-0,-1 CARTRIFILE /PDP- 8e INTERFACE ASSEMBLY (MODEL 20/40) 



ITEM 

NO. 


TRI-DATA 

PART 

NUMBER 


DESCRIPTION 


QTY 

PER 

NEXT 

ASSY 


BBSS 




10881-0 


PDP-8e INTERFACE ASSEMBLY (Model 20) 








10881-1 


PDP-8e INTERFACE ASSEMBLY (Model 40) 






1 


10797-0 


. Clamp, cable, modified 


1 




2 


10798-0 


. Circuit Board, card cable 


1 




3 


10880-0 


. PDP-8e, Interface Board Assembly 


1 




3.1 


10879-0 


.. P.C. Board 


1 




3.2 


00011-001 


.. Cap., cer, fxd, .Oluf 


21 




3.3 


00011-017 


.. Cap., cer, fxd, 220pf 


1 




3.4 


00011-020 


.. Cap., cer, fxd, .OOluf 


11 




3.5 


00015-027 


.. Cap., cer, fxd, 15uf 


6 




3.6 


00045-001 


.. Integrated Circuit, SN7400 ML18,28 


2 




3.7 


00045-002 


.. Integrated Circuit, SN7420 ML 9 


1 




3.8 


00045-006 


. . Integrated Circuit, SN7474 ML26 


1 




3.9 


00045-011 


.. Integrated Circuit, SN7410 ML35 


1 




3.10 


00045-013 


.. Integrated Circuit, SN7404 ML10 , 22 , 30 , 36 , 38 


5 




3.11 


00045-019 


. . Integrated Circuit, SN7430 ML37 


1 




3.12 


00045-031 


.. Integrated Circuit, SIG8881 ML1,6 


2 




3.13 


00045-037 


.. Integrated Circuit, SN7402 ML17, 34,39 


3 




3.14 


00045-040 


.. Integrated Circuit, SIG380 ML6,8,11,25 


4 




3.15 


00045-044 


. . Integrated Circuit, SN74123 ML33 


1 




3.16 


00045-046 


.. Integrated Circuit, NAT 1 L 8094 ML2/4 , 8 , 12/16 , . 


14 








19/21,27,29 






3.17 


00057-025 


.. Res., fxd, comp., IK, 1/4W, 10% 


10 




3.18 


00057-030 


.. Res., fxd, comp., 2.7K, 1/4W, 10% 


10 




3.19 


00057-033 


.. Res., fxd, comp., 4.7K, 1/4W, 10% 


10 




3.20 


00057-034 


.. Res., fxd, comp., 5.6K, 1/4W, 10% 


1 




3.21 


00057-037 


.. Res., fxd, comp., 10K, 1/4W, 10% 


1 




3.22 


00098-010 


. . Terminal Lug 


24 




4 


10916-1 


. Housing, interconnect -0: 


1 




5 


10917-0 


. Retainer, cable 


1 




6 


10916-2 


. Housing, interconnect -1: 


1 




7 


00027-014 


. Handle, flip clip 


2 




8 


00048-002 


. Nut, hex, #4-40 


A/R 




9 


00049-002 


. Nut, self-locking, #4-40 


A/R 




10 


00062-016 


. Screw, pan hd. , #4-40 x 5/8 


A/R 




11 


00062-039 


. Screw, pan hd. , #6-32 x 1/2 


A/R 





C.-X01 









‘TO 



10881-0,-1 CARTRIFILE/PDP- 8e INTERFACE ASSEMBLY (MODEL 20/40) (continued) 



QTY 

NEXT 

ASSY 





TRI-DATA 


NO. 


PART 

NUMBER 


12 


00062-087 


13 


00076-003 


14 


00077-001 


15 


00078-002 


16 


00078-003 


17 


00108-140 


18 


00099-110 



DESCRIPTION 



Screw, pan hd. , #4-40 x 2 
Washer, int. tooth lock, #6 
Washer, lock, ext. tooth, #4 
Washer, plain, #4 
Washer, flat, #6 
Wire, unshielded, twisted pair 
Tubing, heat shrinkable 



C:X01 








TRI-DATA 



TRI-DATA 8-010B-BIN CART RI FILE 1-0 DRIVER 



10505-102 



PURPOSE 

This is a non-interrupt-driven 1-0 subroutine intended for use as an 1-0 driver in 
PDP-8 programs desiring basic CartriFile services from CartriFile 20 or 40 models. 



REQUIREMENTS 

This program requires two consecutive pages (245 words) of PDP-8 main storage. The 
program may be located anywhere within main storage and requires no special PDP-8 
hardware (such as EAE , extended memory, etc.). 

USAGE 

The CartriFile 1-0 Driver is accessed from user programming as a subroutine. The 
user may request the 1-0 Driver to read a block, write a block, write an end-of- 
file mark, or issue a Load-Point Search command. Multiple tapes within a CartriFile 
may be loadpoint-searched simultaneously; the driver supports extended memory and 
can handle up to eight CartriFiles. Subroutine entry points for abnormal- condition 
and input end-of-file processing are specified in the calling sequence for 1-0 func- 
tions; these subroutines are entered using a simulated JMS instruction when the 
indicated conditions occur. 



The 1-0 Driver entry point is the label CFIO, which is at location 7200 in the 
standard version of the driver. The calling sequence in PAL-III code for an 1-0 
request is as follows; 



10, CFIO 



CIF n 
JMS I 10 



/PAGE-ZERO SUBROUTINE PTR. 



/CHANGE TO DRIVER FIELD. 
/ENTER 1-0 DRIVER. 



F F 

_L_ 



1-0 FIELD 
1 I 



NO. 


TL 




T. 


L 


4 


s 


a 



T 



& 



1-0 WORD COUNT 

! I I L L 



J L 



1-0 AREA ADDRESS 
_1 J ! 1 1 



, END-OF-FILE ADDRESS 

J l L_ JL L_ 1 _J JL 



ABNORMAL-EXIT ADDRESS 
J 1 _J I I I I L 



Hi 



/NORMAL RETURN POINT. 



The CIF instruction is necessary only when using extended memory and the 1-0 Driver 
is located in some field other than the current field. The first word after the 
JMS instruction is the 1-0 function word. Bits 0 and 1 specify what function is to 
be executed and are set to 00 for a write end-of-file, 01 for a Load-Point Search, 



1 




TRI-OATA 



10 for a write, and 11 for a read function. Bits 2-4 specify the data field number 
(0 - 7) for a read or write function; the data field number is ignored during a write 
end-of-file or loadpoint-search function and has no effect while reading or writing 
unless extended memory is present. Bits 5-7 specify which of up to eight Cartri- 
Files is to be used; the relationship between the CartriFile number in the calling 
sequence and the actual hardware address of a CartriFile is as follows: 



CartriFile 

Number 

0 

1 

2 

3 

4 

5 

6 
7 



CartriFile 
Hardware Address 

30 - 33 
34 - 37 
40 - 43 
44 - 47 
50 - 53 
54 - 57 
60 - 63 
64 - 67 



The base hardware address associated with CartriFile number 0 is contained in the 
I— O Driver at label Z918 and may be modified by the user if desired? for each incre- 
ment to the CartriFile number, the I— O Driver will add 4 to the base hardware address 
and access the corresponding CartriFile. Bits 8 - 11 specify which tapes in the 
CartriFile are to be used. (Note that multiple tapes may be specified only for a 
loadpoint-search function.) The 1-0 word count specifies between 1 and 4095 12-bit 
words to be read or written? it and the 1-0 area address are present in the calling 
sequence only for a read or write function. The end-of— file address is present only 
for a read operation? it specifies the address of a subroutine entered when a read 
operation detects an end-of-file mark. The abnormal •’-ex it address is always present 
and specifies the address of a subroutine entered when a function is rejected or 
abnormally completed. Either of these subroutines is entered with a simulated JMS 
instruction; the driver stores the address of the calling-sequence function word in 
word 0 of the subroutine and transfers control to word 1 of the subroutine. Note 
that these subroutines must be located in the same memory field as the 1-0 calling 
sequence. 

The accumulator and link bit will not be saved upon entering the CartriFile 1-0 
Driver. Upon a normal return or an input end-of-file exit, the accumulator and link 
will both be set to zero. Upon an abnormal-condition exit, the accumulator and link 
will contain status information as follows: 



“, c \ 


A\\\\\\\\\\\\\\\\\l 


NOT READY „ 

-4 .3 i 3- » i 


E E 
... L 


WLR 


RESIDUAL WORD COUNT 

- i 1 L_ 1 1 i, , 



If the link bit is set, the requested operation has been rejected. Bits 0 and 1 of 
the accumulator will be set if a tape is in off-line mode? bits 8 - 11 of the accu- 
mulator will be set indicating which tapes were not ready. Note that if the link 
bit is set but the accumulator is all zeroes, the user has issued an 1-0 request 
which specified no tapes. If the link bit is not set, the operation was initiated, 



2 






tri-data 



but completed abnormally. Bits 0 and 1 of the accumulator will be set to 01 if end- 
of-tape was detected , 10 if an input read error was detected, or 11 if a tape switched 
into off-line mode. Bit 2 will be set if a wrong-length record was read or written; 
if so, bits 3-11 will indicate how many words were not read or written (up to a 
maximum of 511 words). Note that if bit 2 is set but bits 3-11 are zero, an input 
record was too big for the input area and has been truncated. 

CartriFile data records are always recorded with one extra 12-bit word generated by 
the driver at the end of the record; this word is 0000 for a normal record, 7777 for 
a record that has been split due to end-of-tape, or 0017 for an end-of-file mark. 

When an end-of-tape condition occurs , the record being read or written is a split 
record; the residual count in the accumulator will indicate how many data words were 
not read or written. The programmer must prepare to access the next tape in the 
data file, either by modifying his I -HD calling sequences or by halting the program 
to allow the next tape to be inserted. The new tape should be given a Load-Point 
Search command. Then the programmer has two choices; (1) read or write the remainder 
of the split record on the new tape, using the residual count and an updated 1-0 area 
address, or (2) ignore the partial record and read or write the entire record over on 
the new tape. 

RESTRICTIONS 

The user program must set interrupts off before entering the CartriFile 1-0 Driver; 
the driver will not set interrupts on or off while it is operating. The user must 
clear all CartriFile interrupt flags if he later desires to set interrupts on since 
the 1-0 Driver does not clear CartriFile interrupt conditions before exiting. 

DESCRIPTION 

The CartriFile 1-0 Driver is written in PAL-III assembly language and occupies two 
full pages (245 words) of PDP-^8 main storage. It may be located in any field of 
memory and may be reorigined to the top of any two consecutive pacres within the field. 
Execution time is 1-0 device dependent. For further details, refer to the accom- 
panying program listing. 

PROGRAMMING NOTE 

It is strongly recommended that the user calculate and record a. checksum at the end 
of each data record, as this 1-0 driver uses only the CartriFile record-error flag 
in determining when an input data error has occurred. The checksum should then be 
used as the primary means of data error detection when each record is read. The 
CartriFile record-error flag is of limited use in error detection since it cannot 
isolate errors that occurred while writing a record and it cannot trap 100% of all 
input errors. Thus, the record-error flag should be used as a diaanostic check on 
the operation of the CartriFile unit (if the user is interested) only after the 
user s checksum procedures determine that an input data error has occurred. Normally, 
a record error and a checksum error will occur simultaneously to indicate a Cartri- 
File or tape cartridcre malfunction. 
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PAGE 


0001 












0110 






Z888* 


*• +4 




0001 






/ 








0111 






Z890-, 


.-3 


/SET USER 1-0 FIELD NUMBER. 


0002 






/TRI- 


DATA 


8-010B-BIN 


NON- INTERRUPT 1-0 DRIVER FOR MODEL 


0112 






Z892=» ■ 


.-2 


/LOAD OR STORE NEXT 1-0 WORD. 


0003 






/20 & 


40 CARTRI FILES. 


. ENTRY AND INITIALIZATION ROUTINE. 


0113 






Z894= < 


.-1 


/RESET DRIVER FIELD NUMBER. 


0004 






/ 








0 114 


7344 


2373 




ISZ Z924 


/BUMP 1-0 ADDRESS. 


0005 


7200 


0000 


CFIO* 


0 






0115 


7345 


60 0 0 


Z89 6* 


6000 


/(SPECIAL NO-OP). 


0006 


7201 


7332 




CL A 


STL RTR 


/SET WRITE-START COMMAND BIT. 


0 116 


7346 


5740 




JMP I Z888 


/EXIT. 


0007 


7202 


3371 




DCA 


Z920 




0 117 






/ 






0008 


7203 


3372 




DCA 


Z922 


/CLEAR 1-0 COUNT. 


0118 






/CARTRI FILE SUBROUTINE TO SET UP TAPE OPCODES. 


0009 


7204 


1200 


Z870* 


TAD 


CFIO 


/STORE CALLING-SEQUENCE POINTER. 


0119 






/ 






0010 


7205 


3340 




DCA 


Z888 




0 120 


7 347 


0000 


Z898* 


0 




001 1 


7206 


1 600 




TAD 


I CFIO 


/SET 1-0 FIELD CDF-CIF. 


0121 


7350 


3340 




DCA Z888 


/SAVE A-C. 


0012 


7207 


0335 




AND 


Z88 6 




0122 


7351 


1747 




TAD I Z898 


/LOAD C-F OPCODE. 


0013 


7210 


7012 




RTR 






0123 


7352 


03 64 




AND Z909 


/MASK OUT OLD ADDRESS. 


0014 


721 1 


7012 




RTR 






0124 


7353 


137 4 




TAD Z92 6 


/ADD IN NEW ADDRESS. 


0015 


7212 


1363 




TAD 


Z908 




0 125 


7 354 


37 47 




DCA I Z898 


/RESTORE C-F OPCODE. 


001 6 


7213 


3341 




DCA 


Z890 




0126 


7355 


1340 




TAD Z888 


/RELOAD A-C. 


0017 


7214 


1 600 




TAD 


I CFIO 


/STORE CARTRI FILE NUMBER. 


0 127 


7356 


57 47 




JMP I Z898 


/EXIT. 


0018 


7215 


0366 




AND 


Z914 




0 128 






/ 






0019 


7216 


7004 




RAL 






0 129 






/CARTRI FILE PAGE I 


1 CONSTANTS AND DATA AREAS. 


0020 


7217 


1370 




TAD 


Z91 8 




0130 






/ 






0021 


7220 


3374 




DCA 


Z92 6 




0131 


7357 


7400 


Z900* 


Z934 


/ADDRESS OF WRITE ROUTINE. 


0022 


7221 


1 600 




TAD 


I CFIO 


/STORE SELECTED- TAPE BITS. 


0 132 


73 60 


7430 


Z902* 


Z942 


/ADDRESS OF READ ROUTINE. 


0023 


7222 


0367 




AND 


Z91 6 




0133 


7361 


7522 


Z904* 


Z9 64 


/ADDRESS OF ON-LINE ROUTINE. 


0024 


7223 


3375 




DCA 


Z928 




0 134 


7362 


7533 


Z90 6* 


Z966 


/ADDRESS OF READY ROUTINE. 


0025 


7224 


4334 




JMS 


Z884 


/LOAD FUNCTION CODE. 


0135 


7363 


6203 


Z908* 


6203 


/SKELETON CDF-CIF INSTRUCTION. 


0026 


7225 


0345 




AND 


Z89 6 




0136 


7 3 64 


6037 


Z909* 


6037 


/C-F OPCODE MASK. 


0027 


7226 


7550 




SPA 


SNA 


/TEST FOR L-P SEARCH REQUEST. 


0 137 


7365 


1773 


Z910* 


TAD I Z924 


/I-O TAD INSTRUCTION. 


0028 


7227 


5232 




JMP 


Z872 


/IF NOT* TEST FOR 1-0 REQUEST. 


0138 


7366 


01 60 


Z914* 


01 60 


/CARTRI FILE NUMBER MASK. 


0029 


7230 


7012 




RTR 




/SET L-P SEARCH COMMAND BIT* 


0 139 


73 67 


0017 


Z91 6* 


0017 


/SELECT ED- TAPE BIT MASK. 


0030 


7231 


3371 




DCA 


Z920 




0140 


7370 


0300 


Z918* 


0300 


/BASE CARTRI FILE HARDWARE ADDR, 


0031 


7232 


7006 


Z872* 


RTL 




/ISOLATE I -0 BIT. 


0 141 






Z920* 


*.♦7 


/I-O COMMAND BIT HOLDER. 


0032 


7233 


7 650 




SNA 


CLA 


/TEST FOR 1-0 REQUEST. 


0142 






Z922». 


-6 


/I-O COUNT HOLDER. 


0033 


7234 


52 60 




JMP 


Z87 6 


/IF NOT/ STORE ABN ROUTINE ADDR. 


0 143 






Z924». 


-5 


/I-O ADDRESS HOLDER. 


0034 


7235 


4334 




JMS 


Z884 


/LOAD 1-0 COUNT. 


0144 






Z926=< 


-4 


/CARTRI FILE ADDRESS HOLDER. 


0035 


7236 


7450 




SNA 




/TEST FOR ZERO COUNT. 


0 145 






Z928-. 


-3 


/SELECTED- TAPE BIT HOLDER. 


0036 


7237 


7001 




I AC 




/IF SO* SET A-C TO 1 . 


0146 






Z930* < 


-2 


/EOF ROUTINE ADDRESS HOLDER. 


0037 


7240 


7041 




CIA 




/COMPLEMENT * STORE 1-0 COUNT. 


0 147 






Z932= < 


-1 


/ABN ROUTINE ADDRESS HOLDER. 


0038 


7241 


337 2 




DCA 


Z922 




0148 






/ 






0039 


7242 


4334 




JMS 


Z884 


/STORE 1-0 ADDRESS. 


0 149 






/CARTRI FILE WRITE 


ROUTINE. 


0040 


7243 


3373 




DCA 


Z924 




0150 






/ 






0041 


7244 


7420 




SNL 




/TEST FOR READ REQUEST. 


0151 


7400 


4305 


Z934* 


JMS Z960 


/WAIT FOR 1ST DATA CALL. 


0042 


7245 


5256 




JMP 


Z87 4 


/IF NOT* SET UP 1-0 INSTRUCTION. 


0152 


7401 


1756 




TAD I Z980 


/LOAD I-O COUNT. 


0043 


7246 


1204 




TAD 


Z870 


/SET READ- START COMMAND BIT. 


0 1 53 


7402 


7 640 




SZA CLA 


/TEST FOR WRITE-EOF REQUEST. 


0044 


7247 


3371 




DCA 


Z920 




0 1 54 


7403 


520 6 




JMP Z93 6 


/IF NOT* WRITE 1ST WORD. 


0045 


7250 


4334 




JMS 


Z884 


/STORE EOF ROUTINE ADDRESS. 


0155 


7404 


1363 




TAD Z992 


/LOAD EOF MARK. 


0046 


7251 


337 6 




DCA 


Z930 




0156 


7 405 


5212 




JMP Z938 


/GO WRITE EOF MARK. 


0047 


7252 


1340 




TAD 


Z888 


/SET EOF ROUTINE EXIT ADDRESS. 


01 57 


7406 


47 52 


Z93 6* 


JMS I Z972 


/GET NEXT OUTPUT WORD. 


0048 


7253 


377 6 




DCA 


I Z930 




0158 


7407 


4305 




JMS Z960 


/WRITE NEXT WORD. 


0049 


7254 


2376 




ISZ 


Z930 


/BUMP EOF ROUTINE ADDRESS. 


0159 


7410 


2756 




ISZ I Z980 


/BUMP I-O COUNT. 


0050 


7255 


7012 




RTR 




/SET A-C TO 2000. 


01 60 


741 1 


5217 




JMP Z940 


/IF NON-ZERO* TEST FOR L-P. 


0051 


7256 


13 65 


Z874* 


TAD 


Z910 


/SET 1-0 TAD- DCA INSTRUCTION. 


01 61 


7412 


4305 


Z938* 


JMS Z9 60 


/WRITE LAST WORD. 


0052 


7257 


3342 




DCA 


Z892 




0 1 62 


7413 


7130 




STL RAR 


/ISSUE WRITE-STOP COMMAND. 


0053 


7260 


4334 


Z87 6* 


JMS 


Z884 


/STORE ABN ROUTINE ADDRESS. 


01 63 


7414 


4753 




JMS I Z974 




0054 


7261 


3377 




DCA 


Z932 




01 64 


7415 


6024 




60 2 4 





0055 


72 62 


1340 




TAD 


Z888 


/SET ABN ROUTINE EXIT ADDRESS. 


0165 


741 6 


5310 




JMP 


Z9 62 


/GO WAIT FOR END OF RECORD. 


0056 


7263 


3777 




DCA 


I Z932 




0166 


7417 


47 53 


Z940* 


JMS 


I Z97 4 


/GET LOADPOINT FLAG. 


0057 


72 64 


2377 




ISZ 


Z932 


/BUMP ABN ROUTINE ADDRESS. 


0167 


7420 


6015 




6015 




0058 


7265 


13 63 




TAD 


Z908 


/SET EXITING CDF-CIF INSTRUCTION. 


01 68 


7421 


0757 




AND 


I Z982 




0059 


7266 


6214 




RDF 






01 69 


7422 


7 650 




SNA 


CLA 


/TEST IF TAPE HAS HIT L-P. 


00 60 


7267 


3324 




DCA 


Z880 




0170 


7423 


5206 




JMP 


Z93 6 


/IF NOT* WRITE NEXT WORD. 


0061 


7270 


13 63 




TAD 


Z908 


/SET DRIVER CDF-CIF INSTRUCTIONS. 


0171 


7424 


7132 




STL 


RTR 


/SET EOT STATUS BIT. 


00 62 


727 1 


6224 




RIF 






0172 


7425 


37 54 




DCA 


I Z97 6 




0063 


7 27 2 


3343 




DCA 


Z894 




0173 


7426 


7040 




CMA 




/SET A-C TO -1. 


0064 


7273 


1343 




TAD 


Z894 




0174 


7 427 


5212 




JMP 


Z938 


/GO TERMINATE RECORD. 


0065 


7274 


3275 




DCA 


. + 1 




0175 






/ 








0066 


7275 


0000 




0 




/CHANGE D. F. TO CURRENT I . F. 


0176 






/CARTRI FILE READ 


ROUTINE. 


00 67 


727 6 


137 1 




TAD 


Z920 


/LOAD TAPE COMMAND BIT. 


0177 






/ 








00 68 


7277 


7004 




RAL 




/ISOLATE WRITE-START BIT. 


0178 


7430 


3333 


Z942* 


DCA 


Z9 66 


/CLEAR NEXT-WORD HOLDER. 


00 69 


7 300 


7700 




SMA 


CLA 


/TEST FOR WRITE REQUEST. 


0179 


7431 


4305 




JMS 


Z960 


/WAIT FOR 1ST DATA CALL. 


0070 


7301 


5304 




JMP 


Z878 


/IF NOT* TEST FOR BUSY* 


0180 


7432 


4753 


Z944* 


JMS 


I Z974 


/READ A STORE NEXT WORD. 


0071 


7302 


47 62 




JMS 


I Z906 


/TEST IF TAPE IS FILE-PROTECTED. 


0181 


7433 


6034 




6034 




0072 


7303 


5324 




JMP 


Z880 


/IF SO* TAKE ABNORMAL EXIT. 


0182 


7434 


3333 




DCA 


Z966 




0073 


7 304 


7120 


Z878* 


STL 




/SET LINK BIT ON. 


0183 


7435 


4305 




JMS 


Z9 60 


/WAIT FOR NEXT DATA CALL. 


0074 


7305 


47 62 




JMS 


I Z90 6 


/TEST IF ANY TAPE IS BUSY. 


0 184 


7436 


1756 




TAD 


I Z980 


/LOAD I-O COUNT. 


0075 


7306 


5304 




JMP 


Z878 


/IF SO* WAIT. 


0185 


7437 


7 640 




SZA 


CLA 


/TEST FOR OVERSIZE RECORD. 


0076 


7307 


47 61 




JMS 


I Z904 


/EXIT TO USER IF OFF-LINE. 


0186 


7440 


5244 




JMP 


Z946 


/IF NOT* STORE NEXT WORD. 


0077 


7310 


3334 




DCA 


Z884 


/CLEAR STATUS WORD. 


0187 


7441 


1362 




TAD 


Z990 


/SET W.L.R. STATUS BIT. 


0078 


731 1 


1375 




TAD 


Z928 


/LOAD SELECTED- TAPE BITS. 


0188 


7 442 


37 54 




DCA 


I Z97 6 




0079 


7312 


7450 




SNA 




/TEST FOR NO TAPE BITS. 


0189 


7443 


5232 




JMP 


Z944 


/GO READ NEXT WORD. 


0080 


7313 


5324 




JMP 


Z880 


/IF SO* GO TAKE ABN EXIT. 


0190 


7444 


1333 


Z946* 


TAD 


Z966 


/STORE CURRENT WORD IN 1-0 AREA, 


0081 


7314 


1371 




TAD 


Z920 


/ISSUE TAPE- START COMMAND. 


0191 


7445 


47 52 




JMS 


I Z972 




0082 


7315 


4347 




JMS 


Z898 




0192 


7446 


2756 




ISZ 


I Z980 


/BUMP I-O COUNT. 


0083 


7316 


6024 




6024 




0193 


7447 


600 0 


Z948* 


60 00 


/(SPECIAL NO-OP). 


0084 


7317 


7006 




RTL 




/ISOLATE I-O START BITS. 


0194 


7450 


5232 




JMP 


Z944 


/GO READ NEXT WORD. 


0085 


7 320 


7710 




SPA 


CLA 


/TEST FOR READ REQUEST. 


0195 






/ 








0086 


7321 


57 60 




JMP 


I Z902 


/IF SO* GO TO READ ROUTINE. 


0196 






/CARTRI FILE END-OF-RECORD ROUTINE. 


0087 


7322 


7430 




SZL 




/TEST FOR WRITE REQUEST. 


0197 






/ 








0088 


7323 


57 57 




JMP 


I Z900 


/IF SO* GO TO WRITE ROUTINE. 


0198 


7451 


4322 


Z950* 


JMS 


Z9 64 


/EXIT TO USER IF OFF-LINE. 


0089 


7324 


0000 


Z880* 


0 




/RESET USER FIELD NUMBER. 


0199 


7452 


1755 




TAD 


I Z978 


/LOAD I-O COMMAND BIT. 


0090 


7325 


7420 




SNL 




/TEST FOR REJECT. 


0200 


7453 


7006 




RTL 




/ISOLATE READ-START BIT. 


0091 


7326 


7440 




SZA 




/TEST FOR ABNORMAL STATUS. 


0201 


7454 


7700 




SMA 


CLA 


/TEST FOR READ REQUEST. 


0092 


7327 


5777 




JMP 


I Z932 


/IF EITHER* TAKE ABNORMAL EXIT. 


0202 


7455 


5273 




JMP 


Z956 


/IF NOT* TEST RESIDUAL COUNT. 


0093 


7330 


5600 




JMP 


I CFIO 


/TAKE NORMAL OR EOF EXIT. 


0203 


7456 


4753 




JMS 


I Z974 


/GET RECORD- ERROR FLAG. 


0094 






/ 








0204 


7457 


6012 




6012 




0095 






/CARTRI FILE END-OF- 


FILE ROUTINE. 


0205 


7460 


0247 




AND 


Z948 




0096 






/ 








0206 


7461 


7440 




SZA 




/TEST FOR RECORD- ERROR. 


0097 


7331 


1376 


Z882* 


TAD 


Z930 


/SET END-OF- FILE EXIT ADDRESS. 


0207 


7462 


5271 




JMP 


Z954 


/IF SO* SET ERROR STATUS. 


0098 


7332 


3200 




DCA 


CFIO 




0208 


7463 


1333 




TAD 


Z966 


/LOAD LAST INPUT WORD. 


0099 


7333 


5324 




JMP 


Z880 


/GO TAKE END-OF-FILE EXIT. 


0209 


7464 


7450 




SNA 




/TEST FOR EOF OR EOT. 


0100 






/ 








0210 


7465 


5273 




JMP 


Z956 


/IF NOT* TEST RESIDUAL COUNT. 


0101 






/CARTRI FILE SUBROUTINE TO RETRIEVE NEXT PARAMETER WORD. 


0211 


7466 


7700 




SMA 


CLA 


/TEST FOR END-OF-FILE. 


0102 






/ 








0212 


7467 


57 60 




JMP 


I Z984 


/IF SO, SET UP EOF EXIT. 


0103 


7334 


0000 


Z884* 


0 






0213 


7470 


7132 




STL 


RTR 


/SET END-OF-TAPE STATUS BIT. 


0104 


7335 


1 600 


Z88 6* 


TAD 


I CFIO 


/LOAD NEXT PARAMETER WORD. 


0214 


7 471 


1754 


Z954* 


TAD 


I Z97 6 




0105 


7336 


2200 




ISZ 


CFIO 


/BUMP CALLING- SEQUENCE POINTER. 


0215 


7472 


3754 




DCA 


I Z97 6 




0106 


7 337 


57 34 




JMP 


I Z884 


/EXIT. 


0216 


7473 


1756 


Z95 6* 


TAD 


I Z980 


/LOAD I-O COUNT. 


0107 






/ 








0217 


7 47 4 


71 61 




STL 


CIA 


/COMPLEMENT COUNT. 


0108 






/CARTRI FILE SUBROUTINE TO LOAD OR STORE NEXT I-O WORD. 


0218 


7 47 5 


7450 




SNA 




/TEST FOR SHORT RECORD. 


0109 






/ 








0219 


7476 


5303 




JMP 


Z958 


/IF NOT* LOAD STATUS WORD. 




0220 


7477 


1364 




TAD Z994 


/ADD -51 1 * 


0221 


7500 


7420 




SNL 




/TEST FOR RESIDUAL COUNT OVER 51 


0222 


7501 


7200 




CLA 




/IF SO# CLEAR A-C* 


0223 


7502 


1361 




TAD Z988 


/SET UP W.L.R. STATUS BITS* 


0224 


7503 


1754 


Z958# 


TAD I 


Z97 6 


/LOAD STATUS WORD. 


0225 

0226 


7504 


5751 


/ 


JMP I 


Z970 


/GO EXIT. 


0227 






/CARTRI FILE 


SUBROUTINE TO WAIT FOR DATA CALLS* 


0228 






/ 








0229 


7505 


0000 


Z9 60* 


0 






0230 


7506 


4753 




JMS I 


Z974 


/WRITE NEXT WORD. 


0231 


7507 


60 3 4 




60 3 4 






0232 


7510 


47 53 


Z9 62# 


JMS I 


Z974 


/GET 1-0 MODE BIT. 


0233 


7511 


6013 




6013 






0234 


7512 


7040 




CMA 






0235 


7513 


7006 




RTL 






0236 


7514 


7 630 




SZL CLA 


/TEST FOR END OF RECORD. 


0237 


7515 


5251 




JMP Z950 


/IF SO# GO TO END-OF-RECORD RTN . 


0238 


7516 


4753 




JMS I 


Z974 


/TEST FOR NEXT DATA CALL. 


0239 


7517 


6032 




6032 






0240 


7 520 


5310 




JMP Z9 62 


/IF NOT# WAIT. 


0241 

0242 


7521 


5705 


/ 


JMP I 


Z9 60 


/EXIT. 


0243 






/CARTRI FILE 


SUBROUTINE TO TEST FOR ON-LINE STATUS. 


0244 






/ 








0245 


7522 


0000 


Z9 64# 


0 






0246 


7523 


4753 




JMS I 


Z974 


/GET ON-LINE STATUS BITS. 


0247 


7524 


6013 




6013 






0248 


7525 


7040 




CMA 




/GET NOT-ON-LINE BITS. 


0249 


7526 


07 57 




AND I 


Z982 


/MASK WITH SELECTED- TAPE BITS. 


0250 


7527 


7450 




SNA 




/TEST IF ALL TAPES ARE ON-LINE. 


0251 


7530 


5722 




JMP I 


Z964 


/IF SO# EXIT. 


0252 


7531 


1247 




TAD Z948 


/SET OFF-LINE STATUS BITS. 


0253 

0254 


7532 


57 51 


/ 


JMP I 


Z970 


/GO TAKE ABNORMAL EXIT. 


0255 






/CARTRI FILE 


SUBROUTINE TO TEST FOR READY STATUS* 


0256 






/ 








0257 


7533 


0000 


Z966# 


0 






0258 


7534 


4753 




JMS I 


Z974 


/GET C-F TAPES STATUS. 


0259 


7535 


601 5 




6015 






02 60 


7536 


7420 




SNL 




/TEST FOR FILE-PROTECT REQUEST. 


0261 


7 537 


5342 




JMP Z9 68 


/IF SO# SKIP 1ST 4 ROTATES. 


02 62 


7 540 


7012 




RTR 




/GET STATUS IN LOW-ORDER A-C. 


0263 


7541 


7012 




RTR 






0264 


7 542 


7012 


Z9 68# 


RTR 






0265 


7543 


7012 




RTR 






0266 


7544 


7120 




STL 




/SET LINK BIT ON. 


0 2 67 


7545 


0757 




AND I 


Z982 


/MASK OFF SELECTED- TAPE BITS. 


0268 


7546 


7450 




SNA 




/TEST IF ALL TAPES ARE READY. 


0 2 69 


7 547 


2333 




ISZ Z966 


/IF SO# BUMP RETURN ADDRESS. 


0270 
027 1 


7550 


5733 


/ 


JMP I 


Z966 


/EXIT. 


0272 






/CARTRI FILE 


PAGE 2 


CONSTANTS AND DATA AREAS. 


0273 






/ 








0274 


7551 


7324 


Z970# 


Z880 




/ADDRESS OF EXIT ROUTINE. 



0 27 5 


7552 


7340 


Z972# Z888 


/ADDRESS 


OF DATA 1-0 ROUTINE. 


0276 


7553 


7347 


Z974# 


Z898 


/ADDRESS 


OF OPCODE ROUTINE. 


0 27 7 


7554 


7334 


Z97 6# Z884 


/ADDRESS 


OF STATUS WORD. 


0278 


7555 


7371 


Z978# Z920 


/ADDRESS 


OF 1-0 COMMAND BIT. 


0279 


7556 


7372 


Z980# 


Z922 


/ADDRESS 


OF 1-0 COUNT. 


0280 


7557 


7375 


Z982, 


Z928 


/ADDRESS 


OF SELECTED- TAPE BITS. 


0281 


7560 


7331 


Z984# 


Z882 


/ADDRESS 


OF EOF ROUTINE. 


0282 


7561 


1777 


Z988# 


1777 


/CONSTANT +1023. 


0283 


7 5 62 


1000 


Z990# 1000 


/W.L.R. STATUS BIT. 


0284 


7 5 63 


0017 


Z992# 0017 


/END-OF-FILE MARK. 


0285 


7 5 64 


7001 


Z994# 7001 


/CONSTANT -511. 




10501-003 



PROGRAM CORRECTION 



It has been noted that the teletype control card used by PDP-8E, PDP-8F , and 
PDP-8M computers is not absolutely compatible with older PDP-8 teletype control 
cards. The 1-0 instruction used by Tri-Data 8-006B-BIN to test for and ignore 
a keyboard interrupt (6033 = KSF KCC) does not function on the above PDP-8 
models. The following modifications are required to correct this situation: 



0176 


6032 A435 , 


KCC 




0177 

< 


5012 

* 


JMP 

s 


A0 2 5 


> 

2521 


s 

6031 

i 


> 

KSF 

$ 




> 

2523 


> 

5176 


> 

JMP 


A435 



/RESET KEYBOARD. 

/GO EXIT. 

/TEST KEYBOARD. 

/GO RESET KEYBOARD. 



All binary paper tapes of Tri-Data 8-006B-BIN and all P100A magnetic- tape 
program packages supplied by Tri-Data after April 10, 1972 will contain the 
above modifications so that users need not "patch" the program. 




TRI-DATA 



TRI-DATA 8-006B-BIN CARTRIFILE DIAGNOSTIC PROGRAM 10501-003 



PURPOSE 

This program is the primary diagnostic aid for Tri-Data CartriFile magnetic tape 
units interfaced to all models of the DEC PDP-8 computers. 

DESCRIPTION 

The Tri-Data CartriFile Diagnostic program verifies the correct operation of 
CartriFiles and their interfaces by performing a write/read cycle using the 
PDP-8 computer. The diagnostic simultaneously tests up to seven CartriFiles 
under interrupt control and will log all diagnostic messages on the teletype. 

Any combination of Model 20/40, 4096/4196, or 1024/1124 CartriFiles may be tested 
simultaneously . 

The program first interrogates all CartriFile interface addresses to determine 
whether or not a CartriFile with one or more active tapes is present. Model 
20/40 CartriFile tapes that are not on-line or Model 4096/4196/1024/1124 tapes 
that are file-protected will not be tested. Any CartriFiles that are turned 
off or in LOCAL mode will be ignored. 

The program then types its title and "PASS 0000." and writes a constant worst- 
case data pattern across the entire length of each active tape. Corresponding 
tapes in different CartriFiles will be written simultaneously (i.e. , all tape 
l's followed by all tape 2's, etc.). Both the length and content of the records 
may be set as desired by making appropriate modifications to the program, as 
explained below. Data are output as a string of 12-bit words with the first 
word of each record containing the binary record number. At the end of pass 0, 
the record number of the last record written on each tape will be logged on the 
teletype. 

When pass 0 is completed, the program will begin a specified number of read 
passes; the number of read passes may be set as explained below. For each read 
pass, all active tapes will be read across their entire lengths, and the data 
from each record (including record numbers) will be checked for errors. 
Corresponding tapes in different CartriFiles will be read simultaneously. An 
error message will be logged for any input record on which either a data- 
comparison error or CartriFile record-error is detected. 

The program may be set to stop at the end of all desired read passes or to 
continue write/read cycles indefinitely through a switch option. The program 
may be restarted at any time and will redetermine which CartriFile tapes are 
active upon being restarted or upon beginning a new write/read cycle. 

HARDWARE REQUIREMENTS 

1. Any PDP-8 computer with 4096 words of storage. Additional features such as 
EAE , data-break, etc. are not required. 
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2. An ASR- or KSR-series teletype (or any teletype-compatible printing device) 
having the standard PDP-8 teletype interface (1-0 address 04) . 



3 . 



Up to seven CartriFile magnetic tape units to be tested. Each CartriFile 
will be assigned a letter code by the program corresponding to its hardware 
interface addresses. Allowable interface addresses are as follows: 
CartriFile Interface Addresses 



A 

B 

C 

D 

E 

F 

G 



30-33 

40-43 

50-53 

60-63 

64-67 

70-73 

74-77 



RESTRICTIONS 

There are no restrictions on the use of this program except when it is used on 
a PDP-8S computer. PDP-8S users may test only one 4096 or 1024 CartriFile. 

The CartriFile must have an interface wired to 1-0 address 30-33. In addition, 
the following modifications must be made to the program: 



Location 2077: 


5711 


Location 2213: 


5351 


2103: 


5011 


2223: 


5012 


2107: 


5011 


2226: 


5012 


2111: 


2351 


2432: 


5321 



It is suggested that PDP-8S users make these modifications and then use the 
Digital 8-5-U-BIN Binary Punch Program to punch a new binary tape of Tri-Data 
8-006B-BIN. Using the tape so prepared will preclude the necessity of making 
these modifications continually. 

OPERATING INSTRUCTIONS 

1. Load the CartriFile Diagnostic Program from paper tape using the DEC binary 
loader or from a CartriFile program cartridge using the CartriFile RIM loader. 

2. Place the teletype in LINE mode and make ready all CartriFiles and tapes to 
be tested. 

3. Set locations 0136-0141 if any non-standard program options are desired 
(see below) . 

4. Set the computer switch register to 0200 and press LOAD ADDR. 

5. Make any desired switch option settings (see below) . 

6. Press START, and the program will begin. Note that the program may be stopped 
and restarted at any time without being reloaded. 

PROGRAM OPTIONS 

Location 0136 contains the binary number of read passes to be executed during 
each write/read cycle. This may be set between 0000 and 7777 
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octal (0-4095 read passes; standard is 6) . 

0137 contains the loadpoint-search time limit in seconds (binary) . 
This may be set between 0017 and 7777 octal (15-4095 seconds; 
standard is 300 seconds, or 5 minutes). 

0140 contains the binary number of tolerable read errors per tape 

for each read pass. This may be set between 0001 and 3777 

octal (1-2047 errors; standard is 4) . 

0141 contains the binary number of 12-bit words to be read or written 

in each 1-0 record. This may be set between 0001 and 0066 octal 

(1-54 words per record; standard is 54) . 

SWITCH OPTIONS 

Switch 6 and 7 control the type of input record-error message, as follows: 



Sw. 6 


Sw. 7 


Message 


Off 


Off 


Standard error message. 


Off 


On 


First line of standard error message. 


On 


Off 


One "bell" code. 


On 


On 


No message. 



Note also that if switch 6 is on, an unlimited number of errors will 
be allowed for each tape. 

Switch 8 requests a halt before reading or writing tape 2, 3, or 4. Cartridges 
may be interchanged if desired when the halt is taken. 

Switch 9 requests a halt before beginning the next pass. Cartridges may be 
interchanged if desired when the halt is taken. 

Switch 10 requests an immediate 1-0 halt. No further reading or writing will 
be initiated, and the computer will quiesce to a stop. As long as 
switch 10 in on, pressing CONTINUE causes a single additional record 
to be read or written on each active CartriFile. Full-speed operation 
will resume when switch 10 is turned off and CONTINUE is pressed. 

Switch 11 requests a halt at the end of each write/read cycle (i.e., when all 
desired read passes have been completed) . It also prevents certain 
errors at the start of a pass from causing a tape to be disabled. 

The general function of switch 11 is to indicate that an operator is 
present to monitor the program; for continuous unattended operation 
(i.e., overnight runs), switch 11 must be turned off. 

Note that for any halt request, the computer will not actually halt until all 

pending teletype messages have been printed. 

ERROR MESSAGES 

All error messages are prefixed by the letter T, the number of the tapes involved, 

and the letter code of the CartriFile involved. Thus, a message prefixed by 

T34C indicates that the message applies to tapes 3 and 4 of CartriFile C. Error 
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messages typed by this program are as follows : 

TnX FOUND NO L/P. A tape that was searching for loadpoint exceeded the loadpoint- 
search time limit, or a tape attempted to read or write more than 4095 records. 
This usually means that the loadpoint photosense circuitry is maladjusted. 

The tape will be disabled unless this occurs at the beginning of a pass and 
switch 11 is on, in which case the program will halt to allow the operator to 
correct the situation before proceeding. 

TnX NOT READY. A tape appears busy to the program when the program expected it to 
be stopped. The tape either has gone off-line or has had a circuitry failure. 
The tape will be disabled except as described above. 

TnX FILE-PROTECTED. A tape has become file-protected during the write pass. The 
tape will be disabled except as described above. 

TnX NOT ON LINE. A Model 20/40 tape has gone off-line during an 1-0 pass. The 
tape will be disabled except as described above. 

TnX FLASHED L/P. A tape has detected loadpoint during the reading or writing of 
a record, but the loadpoint indication was not present at the completion of 
reading or writing. 

TnX READ OVER L/P. A tape has input a record numbered 0001 at some time other 
than at the beginning of reading the tape. This is caused either by a read 
error or by the tape failing to find loadpoint while reading. The tape will 
not be read further until the next read pass. 

TnX STOPPED; TOO MANY ERRORS. This message is typed when the number of read errors 
reaches the tolerable limit for a tape. The tape will not be read further 
until the next read pass. 

TnX TIMED OUT. A tape that was reading or writing has gone more than 3 seconds 

without a read-record-complete or write-record-complete signal being generated. 
This denotes serious CartriFile problems. The tape will always be disabled 
from any further activity. 

TnX FAILED TO START I-O. A tape has been given a write-start or read-start 

command and has failed to start writing or reading (i.e., write-ready or read- 
ready is still present). This denotes serious internal problems. The tape 
will always be disabled from any further activity. 

TnX Rnnnn : LW=nnnn CE=nnnn RE=nnnn 

nnnn 0000 0003 0014 0060 0077 0140 0220 0300 0360 0410 

1004 1400 1463 1777 2002 2525 2526 2531 2545 2552 2625 

2645 3125 3146 3252 3637 3776 4001 4525 4631 4652 5132 

5152 5225 5232 5246 5251 5252 5775 6000 6314 6337 6773 

7367 7417 7477 7557 7700 7717 7763 7774 7777 7763 XXXX 

This is the standard format of a read-error message. Rnnnn gives the record 
number; LW indicates the last word read from the tape; CE gives the number 
of comparison errors between the standard output data (shown above) and what 
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was actually read; and RE gives the state of the CartriFile record-error flag. 
An octal dump of all input words will be printed as shown above for each error 

record with XXXX denoting a word that was not read. Note that since the pro- 

gram always allows for one extra input word per record, the last word of each 
read-error message should be XXXX unless the input record overflows. For such 
overflow records, the last input word will be printed in place of the final 
XXXX. Also note that the recorded record number appears as word 1 of the octal 
dump. 

TnX LR=nnnn. This message is output for each tape at the end of pass 0. It gives 

the octal number of the last record written on the tape. During all input 

passes, if a read-error is detected on a record whose record number is higher 
than the last-record number, the indicated tape has failed to sense loadpoint 
correctly. When standard-size records of 54 words each are written, the last- 
record number may be converted to decimal and multiplied by 0.1141 (4096/1024) 
or 0.0483 (all other CartriFiles) to obtain the tape length in feet (+_5%) . 

TAPE DISABLED. This message accompanies any of the above error messages when the 
program is disabling the bad tape from further activity. 

NO C/F ACTIVE. This message is typed when the program determines that no Cartri- 
File is available for further testing. The diagnostic run is considered 
terminated, and the program will proceed to its end-of-job routines. A 
forced halt will occur if such a termination occurs before the start of pass 2. 
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PAGE 0001 

0001 /TRI-DATA 8-006B-BIN CARTRI FILE DIAGNOSTIC. 

0002 /IOT OPCODE DEFINITIONS. 



0003 






/ 


0004 






A=3005 B=4005 C=500 J 


0005 






ION= 600 1 5 IOF= 60025 


0006 






OTSB= 60 1 25 RRB= 60 1 2) 


0007 






SWWC= 602 1 5 PCF= 60221 


0008 






LTB= 60245 KSF=60315 


0009 






OTB= 60345 TSF= 60415 


0010 






/ 


0011 






/INTERRUPT LINKAGES. 


0012 






/ 


0013 


0001 


3007 


*15 DCA A010 


0014 


0002 


7004 


RAL 


0015 


0003 


3010 


DCA A015 


001 6 


0004 


5405 


JMP I A00 5 


0017 








0018 






A005, * • +4 


0019 






A007= • - 3 


0020 






A0 1 0=« -2 


0021 






A0 1 5= . - 1 


0022 








0023 


0011 


7200 


A020, CLA 


0024 


0012 


1010 


A025, TAD A015 


0025 


0013 


7110 


CLL RAR 


0026 


0014 


1007 


TAD A010 


0027 


0015 


6001 


ION 


0028 


0016 


5400 


JMP I 0 


0029 






/ 


0030 






/WORKING REGISTERS. 


0031 






/ 


0032 






A030, *.+20 


0033 






A035=.-17 


0034 






A040= • - 1 6 


0035 






A045=. - 1 5 


0036 






A0 50= . - 1 4 


0037 






A055=. - 1 3 


0038 






A0 60=. - 12 


0039 






A0 65=. - 1 1 


0040 






/ 


0041 






/CARTRI FILE CONTROL 


0042 






/ 


0043 






A07 0= • - 1 0 


0044 






A075=. -7 


0045 






A080= • - 6 


0046 






A08 5= . - 5 


0047 






A090=. -4 


0048 






A09 5= • - 3 


0049 






A1 00= • -2 


0050 






A1 05= • - 1 


0051 






/ 


0052 






/CARTRI FILE CONTROL 


0053 






/ 


0054 


0037 


0140 


0140 



D=600i E=640i F= 700 J G=740 
OTSB1 = 60025 OTSA1 = 60041 SLPA = 6011 
WSPC=60 125 ACMD1 = 60 1 45 OTSA=6014 
RSFF=60225 SCSC=60225 ACMD=6024 
KCC=60325 SDCL= 60325 SRWC=6032 
TCF= 60425 TLS= 604 65 FIXTAB 



/ENTRY -- SAVE A-C. 

/SAVE LINK BIT. 

/GO TO INTERRUPT ROUTINES. 

/ADDRESS OF INTERRUPT ROUTINES. 
/INTERRUPT WORK REGISTER. 
/INTERRUPT A-C HOLDER. 
/INTERRUPT LINK HOLDER. 

/EXIT -- CLEAR A-C. 

/RELOAD LINK BIT. 

/RELOAD A-C. 

/ENABLE INTERRUPTS. 

/RETURN TO MAIN PROGRAM. 



/WORK REGISTER 1. 

/WORK REGISTER 2. 

/WORK REGISTER 3. 

/WORK REGISTER 4. 

/WORK REGISTER 5. 

/WORK REGISTER 6. 

/WORK REGISTER 7. 

/WORK REGISTER 8. 

TABLE WORKAREA. 

/TABLE IDENTIFIER WORD. 
/PERMANENT 1-0 BUFFER ADDRESS. 
/ACTIVITY FLAG & RERR COUNT. 
/TIMEOUT COUNTER. 

/DETECTED L-P BITS. 

/CURRENT 1-0 RECORD NUMBER. 
/CURRENT I -0 BUFFER POINTER. 
/CURRENT 1-0 BUFFER COUNT. 

TABLES. 

/C-F A IDENTIFIER WORD. 



0110 






A27 5= 


-2 


0111 






A280 = 


-1 


0112 


0136 


0006 


A285, 


000 6 


0113 


0137 


0454 


A290, 


0454 


0114 


0140 


0004 


A295, 


0004 


0115 


0141 


0066 


A300, 


0066 


011 6 


0142 


0027 


A305, 


A070 


0117 


0143 


0403 


A3 10, 


B145 


0118 


0144 


1362 


A3 15, 


B530 


0 119 


0145 


1400 


A320, 


B540 


0120 


0146 


1470 


A325, 


B57 5 


0121 


0147 


1550 


A330, 


B61 0 


0122 


0150 


1 600 


A335, 


B640 


0123 


0151 


1 673 


A340, 


B67 5 


0124 


0152 


1717 


A345, 


B685 


0125 


0153 


1730 


A350, 


B690 


0126 


01 54 


1740 


A3 60, 


B700 


0127 


0155 


2024 


A3 65, 


B7 65 


0128 


0156 


2042 


A370, 


B77 5 


0129 


0157 


2055 


A37 5, 


B785 


0130 


01 60 


2651 


A380, 


D015 


0131 


01 61 


3537 


A38 5, 


D020+600 


0132 


0162 


7400 


A390, 


D025 


0133 


01 63 


0560 


A395, 


D120 


0134 


0164 


0400 


A397 , 


0400 


0135 


01 65 


03 60 


A400, 


03 60 


0136 


0166 


0077 


A405, 


0077 


0 137 


0167 


00 66 


A407, 


0066 


0138 


0170 


00 60 


A41 0, 


00 60 


0139 


0171 


0040 


A41 5, 


0040 


0140 


0172 


0017 


A420, 


0017 


0141 


0173 


0007 


A425, 


0007 


0142 


0174 


0004 


A427 , 


0004 


0143 


0175 


7774 


A430, 


7774 


0144 






/ 




0145 






/MAIN 


CONTROL ROUTINE. 


0146 






/ 




0147 


0200 


6002 


*200; 


I OF 


0148 


0201 


6002 




IOF 


0149 


0202 


6022 




PCF 


0150 


0203 


6042 




TCF 


0151 


0204 


6012 




RRB 


0152 


0205 


6032 




KCC 


0153 


0206 


1141 




TAD A300 


0154 


0207 


7450 




SNA 


0155 


0210 


2141 




ISZ A300 


0156 


0211 


7140 




CLL CMA 


0157 


0212 


1 1 67 




TAD A40 7 


0158 


0213 


7 630 




SZL CLA 


0159 


0214 


5217 




JMP B005 


01 60 


0215 


1167 




TAD A407 


01 61 


021 6 


3141 




DCA A300 


01 62 


0217 


1142 


B00 5, 


TAD A305 


01 63 


0220 


3133 




DCA A270 


01 64 


0221 


1 1 63 




TAD A39 5 



/MESSAGE BUFFER POINTER. 
/TELEPRINTER BUFFER POINTER. 
/NUMBER OF READ PASSES. 
/LOADPOINT-SEARCH TIME LIMIT. 
/NUMBER OF READ ERRORS PER TAPE. 
/NUMBER OF WORDS PER 1-0 RECORD. 
/C-F WORKAREA ADDRESS. 

/READ- WRITE SUBROUTINE ADDRESS. 
/HALT SUBROUTINE ADDRESS. 
/READY-TAPES SUBROUTINE ADDRESS. 
/MSG-OUTPUT SUBROUTINE ADDRESS. 
/OCTAL-OUTPUT SUBROUTINE ADDRESS. 
/ERROR-MSG SUBROUTINE ADDRESS. 
/ACCESS SUBROUTINE ADDRESS. 
/RESTORE SUBROUTINE ADDRESS. 

/MOVE SUBROUTINE ADDRESS. 

/6-BIT STORE SUBROUTINE ADDRESS. 
/6-BIT LOAD SUBROUTINE ADDRESS. 
/C-F OPCODE SUBROUTINE ADDRESS. 
/BIT-CHANGE SUBROUTINE ADDRESS. 
/CONSTANT 1-0 DATA ADDRESS. 
/RECORD COUNTERS ADDRESS -1. 
/MESSAGE DATA BASE ADDRESS. 
/STARTING TELEPRINTER BUFFER A DDR 
/MODEL 20-40 L-P SEARCH BIT. 

/C-F OPCODE MASK. 

/6-BIT CHARACTER MASK. 

/CONSTANT +54. 

/6-BIT ASCII ZERO. 

/6-BIT ASCII SPACE. 

/TAPE BITS MASK. 

/OCTAL DIGIT MASK. 

/CONSTANT +4. 

/CONSTANT -4. 



/RESET INTERRUPTS. 

/RESET NON- CARTRI FILE 1-0 FLAGS. 



/LOAD 1-0 WORD COUNT. 

/TEST FOR ZERO WORD COUNT. 

/IF SO, SET WORD COUNT TO 1. 
/COMPLEMENT WORD COUNT. 

/ADD +54. 

/TEST FOR WORD COUNT OVER 54. 
/IF NOT, GO CLEAR BUFFER PTRS. 
/SET 1-0 WORD COUNT TO 54. 

/RESET C-F TABLE POINTER. 

/RESET MESSAGE BUFFER POINTER. 



0055 


0040 


2737 


D020 


/I-O ADDRESS. 


0056 






A110, *• + 6 


/ACTIVITY FLAG. 


0057 






A1 1 5= . -4 


/DETECTED L-P BITS. 


0058 






A1 20=. -2 


/I-O POINTER. 


0059 






A1 25= • - 1 


/I-O COUNT. 


0060 

0061 


0047 


0 600 


0 600 


/C-F B IDENTIFIER WORD. 


00 62 


0050 


3026 


D020+67 


/I-O ADDRESS. 


00 63 






A130, *» + 6 


/ACTIVITY FLAG. 


00 64 






A1 3 5=. -4 


/DETECTED L-P BITS. 


00 65 






A1 40= • -2 


/I-O POINTER. 


0066 
00 67 






A1 45=. - 1 


/I-O COUNT. 


0068 


0057 


1240 


1240 


/C-F C IDENTIFIER WORD. 


00 69 


00 60 


3115 


D020+156 


/I-O ADDRESS. 


0070 






A150, *• + 6 


/ACTIVITY FLAG. 


0071 






A1 55=. -4 


/DETECTED L-P BITS. 


0072 






A1 60= • -2 


/I-O POINTER. 


007 3 






A1 65=.- 1 


/I-O COUNT. 


0074 

0075 


00 67 


1700 


1700 


/C-F D IDENTIFIER WORD. 


0076 


0070 


3204 


D020+245 


/I-O ADDRESS. 


0077 






A170, *. + 6 


/ACTIVITY FLAG. 


0078 






A1 7 5= • -4 


/DETECTED L-P BITS. 


0079 






A1 80 = . -2 


/I-O POINTER. 


0080 

0081 






A1 85=. - 1 


/I-O COUNT. 


0082 


0077 


2320 


2320 


/C-F E IDENTIFIER WORD. 


0083 


0100 


3273 


D020+334 


/I-O ADDRESS. 


0084 






A190, *.+6 


/ACTIVITY FLAG. 


0085 






A1 95= • -4 


/DETECTED L-P BITS. 


0086 






A200=. -2 


/I-O POINTER. 


0087 






A205= • - 1 


/I-O COUNT. 


0088 

0089 


0107 


2740 


2740 


/C-F F IDENTIFIER WORD. 


0090 


0110 


33 62 


D020+423 


/I-O ADDRESS. 


0091 






A210, * . + 6 


/ACTIVITY FLAG. 


0092 






A2 1 5= • - 4 


/DETECTED L-P FLAGS. 


0093 






A220=. -2 


/I-O POINTER. 


0094 






A225=. - 1 


/I-O COUNT. 


0095 

0096 


0117 


33 60 


33 60 


/C-F G IDENTIFIER WORD. 


0097 


0120 


3451 


D020+512 


/I-O ADDRESS. 


0098 






A230, *.+15 


/ACTIVITY FLAG. 


0099 






A235=.-l 3 


/DETECTED L-P BITS. 


0100 






A2 40= • - 1 1 


/I-O POINTER. 


0101 






A245=.-10 


/I-O COUNT. 


0102 






/ 




0103 






/LOW- CORE CONSTANTS 


AND DATA AREAS. 


0104 






/ 




0105 






A250=.-7 


/PASS NUMBER. 


0106 






A2 55= . - 6 


/ACTIVE TAPE BIT HOLDER. 


0107 






A2 60 = . - 5 


/ACTIVITY FLAG. 


0108 






A2 65= . -4 


/ERROR, HALT FLAG. 


0109 






A270=.-3 


/CURRENT C-F TABLE POINTER. 



01 65 


0222 


3134 




DCA 


A27 5 




0166 


0223 


3135 




DCA 


A280 


/RESET TELEPRINTER BUFFER POINTER 


01 67 


0224 


3127 


B010, 


DCA 


A2 50 


/RESET PASS NUMBER. 


01 68 


0225 


1375 




TAD 


B1 10 


/SET INTERRUPT OPCODE POINTER. 


01 69 


0226 


3017 




DCA 


A030 




0170 


0227 


4551 


B015, 


JMS 


I A340 


/ACCESS NEXT C-F TABLE. 


0171 


0230 


5311 




JMP 


B050 


/AT END, GO ENABLE INTERRUPTS. 


0172 


0231 


1027 




TAD 


A070 


/CLEAR C-F TYPE & SELECTED TAPES. 


0173 


0232 


0376 




AND 


B1 15 




0174 


0233 


3027 




DCA 


A070 




0175 


0234 


1027 




TAD 


A070 


/ISOLATE C-F HARDWARE ADDRESS. 


0176 


0235 


01 65 




AND 


A400 




0177 


0236 


7450 




SNA 




/TEST IF THIS TABLE IS ACTIVE. 


0178 


0237 


5256 




JMP 


B020 


/IF NOT, GO CLEAR ADDRESS HOLDER. 


0179 


0240 


7104 




CLL 


RAL 


/STORE C-F HARDWARE ADDRESS. 


0180 


0241 


3020 




DCA 


A035 




0181 


0242 


4556 




JMS 


I A370 


/GET NEW C-F STATUS BITS. 


0182 


0243 


6012 




OTSB 




0183 


0244 


0172 




AND 


A420 


/MASK OFF ON-LINE BITS. 


0184 


0245 


7440 




SZA 




/TEST IF ANY TAPE IS ON-LINE. 


0185 


0246 


52 62 




JMP 


B030 


/IF SO, GO STORE SELECT BITS. 


0186 


0247 


4556 




JMS 


I A370 


/GET OLD C-F STATUS BITS. 


0187 


0250 


6004 




0TSA1 




0188 


0251 


7012 




RTR 




/MASK OFF WRITE-READY BITS. 


0189 


0252 


7012 




RTR 






0190 


0253 


4557 




JMS 


I A37 5 




0191 


0254 


7440 




SZA 




/TEST IF ANY TAPE IS WRITE- READY. 


0192 


0255 


52 60 




JMP 


B02 5 


/IF SO, GO SET 4096-4196 FLAG. 


0193 


0256 


3020 


B020, 


DCA 


A035 


/CLEAR HARDWARE ADDRESS HOLDER. 


0194 


0257 


52 64 




JMP 


B035 


/GO CLEAR I-O COMMANDS. 


0195 


02 60 


7104 


B025, 


CLL 


RAL 


/SET 4096-419 6 C-F TYPE FLAG. 


0196 


0261 


7130 




STL 


RAR 




0197 


02 62 


1027 


B030, 


TAD 


A070 


/STORE C-F TYPE & SELECTED TAPES. 


0198 


02 63 


3027 




DCA 


A07 0 




0199 


02 64 


4552 


B035, 


JMS 


I A345 


/RESTORE C-F TABLE. 


0200 


0265 


1027 




TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0201 


0266 


7700 




SMA 


CLA 


/TEST FOR MODEL 409 6-419 6. 


0202 


02 67 


527 4 




JMP 


B040 


/IF NOT, LOAD NEW C-F TABLE PTR. 


0203 


0270 


1377 




TAD 


B120 


/RESET 4096-4196 I-O FLAGS. 


0204 


0271 


4556 




JMS 


I A370 




0205 


0272 


6022 




RSFF 




020 6 


0273 


1374 




TAD 


B105 


/LOAD OLD OPCODE TABLE ADDRESS. 


0207 


0274 


1373 


B040, 


TAD 


B100 


/LOAD NEW OPCODE TABLE ADDRESS. 


0208 


027 5 


3021 




DCA 


A040 


/STORE SKELETON- OP CODE TABLE PTR. 


0209 


027 6 


1421 


B045, 


TAD 


I A040 


/LOAD NEXT SKELETON OPCODE. 


0210 


0277 


7 650 




SNA 


CLA 


/TEST FOR END OF OPCODE TABLE. 


021 1 


0300 


5227 




JMP 


B015 


/IF SO, GO ACCESS NEXT TABLE. 


0212 


0301 


1417 




TAD 


I A030 


/STORE NEXT OPCODE POINTER. 


0213 


0302 


3022 




DCA 


A045 




0214 


0303 


1020 




TAD 


A035 


/LOAD C-F HARDWARE ADDRESS. 


0215 


0304 


7 440 




SZA 




/TEST IF THIS C-F IS ACTIVE. 


0216 


0305 


1421 




TAD 


I A040 


/IF SO, ADD C-F OPCODE. 


0217 


0306 


3422 




DCA 


I A045 


/STORE ZERO OR C-F OPCODE. 


0218 


0307 


2021 




ISZ 


A040 


/BUMP SKELETON- OP CODE TABLE PTR. 


0219 


0310 


527 6 




JMP 


B045 


/LOOP UNTIL END OF TABLE. 




0220 


0311 


1371 


B050* 


TAD B090 


/SET WRITE INTERRUPT ENTRY. 


0330 


0463 


1130 




TAD 


A255 


0221 


0312 


3005 




DCA A005 




0331 


0464 


7010 




RAR 




0222 


0313 


6001 




ION 


/ENABLE INTERRUPTS. 


0332 


0465 


7 620 




SNL 


CLA 


0223 


0314 


4546 




JMS I A325 


/TYPE TITLE MESSAGE. 


0333 


0466 


5341 




JMP 


B210 


0224 


0315 


0000 




D030+D030- D025 




0334 


0467 


1027 


B18 5* 


TAD 


A070 


0225 


031 6 


4543 




JMS I A31 0 


/EXECUTE WRITE PASS- 


0335 


0470 


0172 




AND 


A420 


0226 


0317 


1372 




TAD B095 


/SET READ INTERRUPT ENTRY. 


0336 


0471 


7650 




SNA 


CLA 


0227 


0320 


3005 




DCA A005 




0337 


0472 


5342 




JMP 


B215 


0228 


0321 


1 1 61 




TAD A385 


/SET UP RECORD COUNTERS POINTER. 


0338 


0473 


1027 


B190* 


TAD 


A070 


0229 


0322 


3021 




DCA A040 




0339 


0474 


7710 




SPA 


CLA 


0230 


0323 


4551 


B055* 


JMS I A340 


/ACCESS NEXT C-F TABLE. 


0340 


0475 


1174 




TAD 


A427 


0231 


0324 


5355 




JMP B07 5 


/AT END* GO TEST PASS NUMBER. 


0341 


047 6 


1201 




TAD 


B137 


0232 


0325 


1027 




TAD A070 


/LOAD C-F IDENTIFIER WORD. 


0342 


0477 


3022 




DCA 


A045 


0233 


0326 


0172 




AND A420 


/MASK OFF SELECTED- TAPE BITS. 


0343 


0500 


3023 




DCA 


A050 


0234 


0327 


7650 




SNA CL A 


/TEST FOR ANY SELECTED TAPES. 


0344 


0501 


1027 


B195* 


TAD 


A070 


0235 


0330 


5333 




JMP B0 60 


/IF NOT* GO INITIALIZE SCAN BIT. 


0345 


0502 


7700 




SMA 


CLA 


0236 


0331 


4546 




JMS I A325 


/TYPE LINE- FEED. 


0346 


0503 


5310 




JMP 


B200 


0237 


0332 


0452 




D100+D100-D025 




0347 


0504 


4556 




JMS 


I A370 


0238 


0333 


7124 


B0 60* 


STL RAL 


/INITIALIZE TAPE-SCAN BIT- 


0348 


0505 


6004 




OTSA1 


0239 


0334 


3130 


B0 65* 


DCA A255 


/STORE TAPE- SCAN BIT. 


0349 


0506 


4557 




JMS 


I A375 


0240 


0335 


2021 




ISZ A040 


/BUMP RECORD-COUNTERS POINTER. 


0350 


0507 


5312 




JMP 


B205 


0241 


0336 


1421 




TAD I A040 


/CONVERT RECORD NUMBER TO OCTAL. 


0351 


0510 


4556 


B200* 


JMS 


I A370 


0242 


0337 


4547 




JMS I A330 




0352 


051 1 


6014 




OTSA 


0243 


0340 


0410 




D085+D08 5+2- D025 


0353 


0512 


7040 


B205* 


CMA 




0244 


0341 


1027 




TAD A07 0 


/LOAD C-F IDENTIFIER WORD. 


0354 


0513 


0027 




AND 


A070 


0245 


0342 


0130 




AND A255 


/MASK OFF CURRENT TAPE BIT. 


0355 


0514 


0172 




AND 


A420 


0246 


0343 


7650 




SNA CL A 


/TEST IF THIS TAPE IS ACTIVE. 


0356 


0515 


7450 




SNA 




0247 


0344 


5347 




JMP B070 


/IF NOT* GO ROTATE TAPE BIT. 


0357 


051 6 


5341 




JMP 


B210 


0248 


0345 


4550 




JMS I A335 


/TYPE LAST-RECORD MESSAGE. 


0358 


0517 


2023 




ISZ 


A0 50 


0249 


0346 


2405 




D08 5+ D08 5+ 1 777- 


D025 


0359 


0520 


5301 




JMP 


B195 


0250 


0347 


1130 


B070* 


TAD A2 55 


/LOAD TAPE-SCAN BIT. 


0360 


0521 


2022 




ISZ 


A045 


0251 


0350 


7104 




CLL RAL 


/ROTATE BIT 1 PLACE LEFT. 


0361 


0522 


5301 




JMP 


B195 


0252 


0351 


0172 




AND A420 


/MASK OFF VALID TAPE BITS- 


0 362 


0523 


2021 




ISZ 


A040 


0253 


0352 


7440 




SZA 


/TEST FOR ANY REMAINING BITS. 


0363 


0524 


5273 




JMP 


B190 


0254 


0353 


5334 




JMP B0 65 


/IF SO* GO STORE SCAN BIT. 


0364 


0525 


3130 




DCA 


A255 


0255 


0354 


5323 




JMP B055 


/GO ACCESS NEXT TABLE. 


0365 


052 6 


7040 




CMA 




0256 


0355 


1136 


B07 5* 


TAD A28 5 


/LOAD PASS NUMBER LIMIT. 


0366 


0527 


3017 




DCA 


A030 


0257 


0356 


7041 




CIA 


/COMPLEMENT PASS LIMIT. 


0367 


0530 


4550 




JMS 


I A335 


0258 


0357 


1127 




TAD A250 


/ADD CURRENT PASS NUMBER. 


0368 


0531 


0310 




D0 65+D0 65-D025 


0259 


0360 


2127 




ISZ A250 


/BUMP CURRENT PASS NUMBER. 


0369 


0532 


7124 




STL 


RAL 


02 60 


0361 


7 650 




SNA CLA 


/TEST FOR END OF JOB. 


0370 


0533 


3130 




DCA 


A255 


0261 


03 62 


53 65 




JMP B080 


/IF SO* GO TYPE END-OF-JOB MSG. 


0371 


0534 


7404 




OSR 




02 62 


0363 


4543 




JMS I A3i 0 


/EXECUTE NEXT READ PASS. 


0372 


0535 


7010 




RAR 




0263 


03 64 


5355 




JMP B07 5 


/GO TEST PASS NUMBER AGAIN. 


0373 


0536 


7 620 




SNL 


CLA 


0264 


0365 


4546 


B080* 


JMS I A32 5 


/TYPE END-OF-JOB MESSAGE. 


0374 


0537 


52 67 




JMP 


B185 


0265 


0366 


0121 




D040+D040- 1 -D025 


0375 


0540 


2132 




ISZ 


A2 65 


0266 


03 67 


4544 


B085* 


JMS I A31 5 


/TAKE CONDITIONAL HALT. 


0376 


0541 


2131 


B210* 


ISZ 


A2 60 


02 67 


0370 


5224 




JMP B010 


/GO START OVER. 


0377 


0542 


3034 


B2 1 5* 


DCA 


A095 


0268 












0378 


0543 


3031 




DCA 


A080 


02 69 


0371 


2075 


B090* 


C005 


/WRITE INTERRUPT ENTRY ADDRESS. 


0379 


0544 


1027 




TAD 


A070 


0270 


0372 


2212 


B095* 


Cl 7 5 


/READ INTERRUPT ENTRY ADDRESS. 


0 380 


0545 


0130 




AND 


A255 


0271 


0373 


2526 


B100* 


D005 


/MODEL 20-40 OPCODE TABLE ADDR. 


0381 


0546 


7 650 




SNA 


CLA 


0272 


0374 


531 1 


B105* 


-2501+12 


/4096-4196 OPCODE TABLE OFFSET. 


0 382 


0547 


5363 




JMP 


B220 


027 3 


0375 


2551 


B1 10* 


D010-1 


/INTERRUPT OPCODE TABLE ADDRESS. 


0383 


0550 


1140 




TAD 


A295 


0274 


037 6 


3760 


B1 15* 


37 60 


/C-F IDENTIFIER WORD MASK. 


0384 


0551 


7450 




SNA 





/LOAD ACTIVE- TAPE BIT. 

/ROTATE BIT 1 PLACE RIGHT. 

/TEST FOR OTHER THAN TAPE 1. 

/IF SO* GO SET UP C-F TABLE. 

/LOAD C-F IDENTIFIER WORD. 

/MASK OFF SELECTED- TAPE BITS. 

/TEST FOR ANY SELECTED TAPES. 

/IF NOT* GO SET UP C-F TABLE. 

/LOAD C-F IDENTIFIER WORD. 

/TEST FOR MODEL 20-40 C-F. 

/IF NOT* LOAD 409 6-419 6 TIMER. 

/IF SO* LOAD 20-40 TIMER. 

/SET UP 1 -SECOND L-P TIMER. 

/LOAD C-F IDENTIFIER WORD. 

/TEST FOR MODEL 20-40 C-F. 

/IF SO* GO TO 20-40 ROUTINE. 

/GET 409 6-419 6 TAPES STATUS. 

/CONVERT L-P BITS TO NEW FORMAT. 
/GO COMPLEMENT L-P BITS. 

/GET 20-40 TAPES STATUS. 

/GET NOT-AT-LOADPOINT BITS. 

/MASK AGAINST SELECTED- TAPE BITS. 
/CLEAR OUT GARBAGE. 

/TEST IF ALL TAPES ARE AT L-P. 

/IF SO* GO SET UP C-F TABLE. 

/BUMP LOWER HALF OF 1 -SECOND TIMER 
/IF NON-ZERO* GO TEST AGAIN. 

/BUMP UPPER HALF OF 1 -SECOND TIMER 
/IF NON-ZERO* GO TEST AGAIN. 

/BUMP L-P SEARCH TIMER. 

/IF NON-ZERO* RESET 1-SEC. TIMER. 
/SAVE ERROR TAPE BITS. 

/SET L-P SEARCH TIMER TO -1. 

/TYPE FOUND-NO-LOADPOINT MESSAGE. 

/RESET ACTIVE- TAPE BIT. 

/GET SWITCH 11. 

/TEST IF SWITCH 11 IS ON. 

/IF NOT* GO TEST REMAINING TAPES. 
/SET ERROR FLAG ON. 

/SET ACTIVITY FLAG ON. 

/CLEAR C-F CURRENT RECORD NUMBER. 
/CLEAR C-F ACTIVITY FLAG. 

/LOAD C-F IDENTIFIER WORD. 

/MASK OFF CURRENT TAPE BIT. 

/TEST IF THIS TAPE IS ACTIVE. 

/IF NOT* GO RESTORE C-F TABLE. 
/LOAD RECORD-ERROR LIMIT. 

/TEST FOR ZERO LIMIT. 



0275 


0377 


2501 


B120* 


2501 


/ 40 9 6- 41 9 6 FLAG-RESET MASK. 


0385 


0552 


7001 




I AC 




/IF SO* SET LIMIT TO 1. 


027 6 


0400 


061 6 


Bl 30* 


B270 


/ADDRESS OF 1-0 SCAN LOOP. 


0386 


0553 


7510 




SPA 




/TEST FOR OVERSIZE LIMIT. 


0277 


0401 


7772 


B137* 


7772 


/MODEL 20-40 1-SECOND TIMER. 


0387 


0554 


7240 




STA 




/IF SO* SET A-C TO -1. 


0278 






/ 








0388 


0555 


7104 




CLL 


RAL 


/SHIFT LIMIT 1 PLACE LEFT. 


0279 






/SUBROUTINE TO EXECUTE READ AND WRITE PASSES. 


0389 


0556 


7041 




CIA 




/NEGATE RECORD- ERROR LIMIT. 


0280 






/ 








0390 


0557 


7110 




CLL 


RAR 


/GET ACTIVITY FLAG. 


0281 


0402 


5603 


Bl 40* 


JMP 


I Bl 45 


/SUBROUTINE EXIT INSTRUCTION. 


0391 


0560 


3031 




DCA 


A080 


/STORE ACTIVITY FLAG. 


0282 


0403 


0000 


Bl 45* 


0 




/RETURN ADDRESS HOLDER. 


0392 


0561 


4545 




JMS 


I A320 


/TEST IF TAPE IS READY. 


0283 


0404 


1127 




TAD 


A250 


/CONVERT PASS NUMBER TO OCTAL. 


0393 


05 62 


2132 




ISZ 


A2 65 


/IF NOT* SET ERROR FLAG. 


0284 


0405 


4547 




JMS 


I A330 




0394 


0563 


4552 


B220* 


JMS 


I A345 


/RESTORE C-F TABLE. 


0285 


0406 


0427 




D090+D090+11-D025 


0395 


0564 


52 61 




JMP 


Bl 80 


/GO ACCESS NEXT TABLE. 


028 6 


0407 


4546 




JMS 


I A325 


/TYPE PASS NUMBER MESSAGE. 


0396 


0565 


7100 


B225* 


CLL 




/CLEAR LINK BIT. 


0287 


0410 


041 6 




D090+D090- D025 




0397 


0566 


1132 




TAD 


A2 65 


/LOAD ERROR FLAG. 


0288 


0411 


7404 




OSR 




/GET SWITCH 9. 


0398 


0567 


7640 




SZA 


CLA 


/TEST FOR ERROR-HALT REQUEST. 


0289 


0412 


7012 




RTR 






0399 


0570 


4544 




JMS 


I A31 5 


/IF SO* GO RING BELLS & HALT. 


0290 


0413 


7010 




RAR 






0400 


0571 


7430 




SZL 




/TEST IF HALT WAS TAKEN. 


0291 


0414 


7630 




SZL 


CLA 


/TEST IF SWITCH 9 IS ON. 


0401 


0572 


5220 




JMP 


Bl 50 


/IF SO* GO RETRY L-P SEARCHES. 


0292 


0415 


4544 




JMS 


I A31 5 


/IF SO* GO RING BELLS & HALT. 


0402 


0573 


1131 


B230* 


TAD 


A2 60 


/LOAD ACTIVITY FLAG. 


0293 


041 6 


7124 




STL 


RAL 


/INITIALIZE ACTIVE-TAPE BIT. 


0403 


0574 


7640 




SZA 


CLA 


/TEST FOR ANY ACTIVE C-F. 


0294 


0417 


3130 




DCA 


A255 




0404 


0575 


5600 




JMP 


I Bl 30 


/IF SO* GO CLEAR HALT FLAG. 


0295 


0420 


3131 


Bl 50* 


DCA 


A2 60 


/RESET ACTIVITY FLAG. 


0405 


057 6 


4546 


B235* 


JMS 


I A325 


/TYPE NO C-F ACTIVE MESSAGE. 


0296 


0421 


4551 


Bl 55* 


JMS 


I A340 


/ACCESS NEXT C-F TABLE. 


0406 


0577 


0075 




D035+D035- 1 - 


D025 


0297 


0422 


5244 




JMP 


Bl 65 


/AT END* GO TEST ACTIVITY FLAG. 


0407 


0 600 


4546 




JMS 


I A325 


/TYPE END-OF-JOB MESSAGE. 


0298 


0423 


1027 




TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0408 


0 601 


0121 




D040+D040- 1 - 


D025 


0299 


0424 


7100 




CLL 




/CLEAR LINK BIT. 


0409 


0 602 


7321 




CLA 


STL IAC 


/SET LINK BIT IF PASS 0 OR 1. 


0300 


0425 


7510 




SPA 




/TEST FOR MODEL 409 6-419 6 C-F. 


0410 


0603 


7040 




CMA 






0301 


042 6 


7020 




CML 




/IF SO* SET LINK BIT. 


0411 


0 604 


1127 




TAD 


A250 




0302 


0427 


0172 




AND 


A420 


/MASK OFF SELECTED- TAPE BITS. 


0412 


0605 


560 6 




JMP 


I B240 


/GO TAKE CONDITIONAL HALT. 


0303 


0430 


7450 




SNA 




/TEST FOR ANY SELECTED TAPES. 


0413 














0304 


0431 


5221 




JMP 


Bl 55 


/IF NOT* GO ACCESS NEXT TABLE. 


0414 


0606 


03 67 


B240* 


B085 


/CONDITIONAL HALT POINT. 


0305 


0432 


7420 




SNL 




/TEST FOR MODEL 20-40 C-F. 


0415 


0 607 


1001 


B242* 


B335 


/MODEL 20-40 RERR TEST POINT. 


0306 


0433 


5240 




JMP 


Bl 60 


/IF SO* GO TO 20-40 ROUTINE. 


041 6 


0 610 


1126 


B245* 


B425 


/INPUT L-P SEARCH POINT. 


0307 


0434 


4557 




JMS 


I A375 


/CONVERT BITS TO OLD FORMAT. 


0417 


061 1 


1143 


B247* 


B440 


/DEACTIVATION POINT. 


0308 


0435 


4556 




JMS 


I A370 


/ISSUE 4096-4196 L-P SEARCH. 


0418 


0612 


1164 


B250* 


B450 


/OVERRUN TEST POINT. 


0309 


0436 


6014 




ACMD1 




0419 


0613 


1176 


B255* 


B460 


/HALT- FLAG TEST POINT. 


0310 


0437 


5220 




JMP 


Bl 50 


/GO SET ACTIVITY FLAG. 


0420 


0614 


131 6 


B2 60* 


B480 


/ACTIVITY- FLAG SET POINT. 


0311 


0440 


1 1 64 


Bl 60* 


TAD 


A397 


/INSERT 20-40 L-P SEARCH BIT. 


0421 


0 615 


1321 


B2 65* 


B485 


/ACTIVITY- FLAG TEST POINT. 


0312 


0441 


4556 




JMS 


I A370 


/ISSUE 20-40 L-P SEARCH. 


0422 














0313 


0442 


6024 




ACMD 




0423 


061 6 


3132 


B27 0* 


DCA 


A2 65 


/RESET HALT FLAG. 


0314 


0443 


5220 




JMP 


Bl 50 


/GO SET ACTIVITY FLAG. 


0424 


0617 


3131 


B27 5* 


DCA 


A2 60 


/RESET ACTIVITY FLAG. 


0315 


0444 


1131 


Bl 65* 


TAD 


A2 60 


/END OF TABLES -- LOAD ACT. FLAG. 


0425 


0620 


4551 


B280* 


JMS 


I A340 


/ACCESS NEXT C-F TABLE. 


031 6 


0445 


7 650 




SNA 


CLA 


/TEST FOR ANY ACTIVE C-F. 


0426 


0621 


5615 




JMP 


I B2 65 


/AT END* GO TEST ACTIVITY FLAG. 


0317 


0446 


5376 




JMP 


B235 


/IF NOT* TYPE NO C-F ACTIVE MSG. 


0427 


0 622 


1031 




TAD 


A080 


/LOAD C-F ACTIVITY FLAG. 


0318 


0447 


1172 




TAD 


A420 


/LOAD -15. 


0428 


0623 


7450 




SNA 




/TEST IF THIS C-F IS ACTIVE. 


0319 


0450 


7141 




CLL 


CIA 




0429 


0624 


5220 




JMP 


B280 


/IF NOT* GO ACCESS NEXT TABLE. 


0320 


0451 


1137 




TAD 


A290 


/ADD L-P SEARCH TIME LIMIT. 


0430 


0 625 


7700 




SMA 


CLA 


/TEST IF TAPE IS STOPPED. 


0321 


0452 


7420 




SNL 




/TEST FOR LIMIT UNDER 15 SEC. 


0431 


0626 


5613 




JMP 


I B255 


/IF SO* GO TEST HALT FLAG. 


0322 


0453 


7200 




CLA 




/IF SO* CLEAR A-C. 


0432 


0627 


1027 




TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0323 


0454 


1172 




TAD 


> 

to 

G> 


/SET UP L-P SEARCH TIMER. 


0433 


0630 


7700 




SMA 


CLA 


/TEST FOR MODEL 20-40 C-F. 


0324 


0455 


7041 




CIA 






0434 


0631 


5250 




JMP 


B290 


/IF SO* GO TO 20-40 ROUTINE. 


0325 


0456 


3021 




DCA 


A040 




0435 


0632 


1 127 




TAD 


A250 


/LOAD PASS NUMBER. 


0326 


0457 


3131 


Bl 7 5* 


DCA 


A2 60 


/RESET ACTIVITY FLAG. 


0436 


0633 


7 640 




SZA 


CLA 


/TEST FOR WRITE PASS. 


0327 


0460 


3132 




DCA 


A2 65 


/RESET ERROR FLAG. 


0437 


0634 


7001 




IAC 




/IF NOT* SET A-C TO 1. 


0328 


0461 


4551 


Bl 80* 


JMS 


I A340 


/ACCESS NEXT C-F TABLE. 


0438 


0635 


7040 




CMA 




/STORE BIT-ROTATION COUNT. 


0329 


0462 


53 65 




JMP 


B225 


/AT END* GO TEST ERROR FLAG. 


0439 


063 6 


3017 




DCA 


A030 






0 440 


0 637 


4556 




JMS 


I A370 


/GET C-F TAPES STATUS. 


0550 


1015 


7 640 




SZA 


CLA 


/TEST FOR BELL REQUEST. 


0441 


0 640 


6004 




0TSA1 




0551 


101 6 


53 64 




JMP 


B450 


/IF NOT, GO TEST FOR OVERRUN. 


0442 


0 641 


7040 




CMA 




/GET NOT-READY BITS. 


0 552 


1017 


4546 




JMS 


I A325 


/TYPE ONE BELL CODE. 


0443 


0 642 


7012 


B285, 


RTR 




/ROTATE BITS 4 PLACES RIGHT. 


0553 


1020 


0171 




D045+D045+25- D025 


0444 


0 643 


7012 




RTR 






0554 


1021 


53 64 




JMP 


B450 


/GO TEST FOR OVERRUN. 


0445 


0 644 


2017 




ISZ 


A030 


/BUMP BIT-ROTATION COUNT. 


0555 














0446 


0 645 


5242 




JMP 


B28 5 


/IF NON-ZERO, KEEP ROTATING. 


0556 


1022 


0620 


B340, 


B280 


/TABLE-ACCESS POINT. 


0447 


0646 


4557 




JMS 


I A37 5 


/CONVERT BITS TO NEW FORMAT. 


0 557 


1023 


7765 


B350, 


77 65 


/CONSTANT -11. 


0448 


0 647 


5255 




JMP 


B295 


/GO TEST IF TAPE IS STOPPED. 


0 558 


1024 


3400 


B355, 


3400 


/C-F LETTER CODE MASK. 


0449 


0 650 


4556 


B290, 


JMS 


I A370 


/GET C-F TAPES STATUS- 


0559 


1025 


0020 


B37 5, 


0020 


/SWITCH 7 MASK. 


0450 


0651 


6014 




OTSA 




0560 














0451 


0 652 


7006 




RTL 




/GET BUSY BITS IN LOW-ORDER A-C. 


0561 


1026 


1034 


B380, 


TAD 


A095 


/CONVERT RECORD NUMBER TO OCTAL. 


0452 


0 653 


7006 




RTL 






0562 


1027 


4547 




JMS 


I A330 




0453 


0 654 


7004 




RAL 






0 5 63 


1030 


0460 




D105+D105-D025 




0454 


0 655 


0130 


B295, 


AND 


A255 


/MASK AGAINST ACTIVE- TAPE BIT. 


0 5 64 


1031 


1141 




TAD 


A300 


/LOAD 1-0 WORD COUNT. 


0455 


0656 


7650 




SNA 


CLA 


/TEST IF TAPE IS STOPPED. 


0565 


1032 


1036 




TAD 


A105 


/ADD C-F 1-0 COUNT. 


0456 


0 657 


5270 




JMP 


B300 


/IF SO, GO TEST FOR FLASH L-P. 


0566 


1033 


7710 




SPA 


CLA 


/TEST IF ANY DATA WAS READ. 


0 457 


0 660 


7126 




STL 


RTL 


/GET C-F TIMEOUT COUNTER PTR. 


0 567 


1034 


5243 




JMP 


B38 5 


/IF NOT, USE ZERO AS LAST WORD. 


0458 


0 661 


1133 




TAD 


A270 




0568 


1035 


1036 




TAD 


A105 


/IF SO, LOAD C-F 1-0 COUNT. 


0459 


0 662 


3017 




DCA 


A030 




0 569 


1036 


7 640 




SZA 


CLA 


/TEST FOR INPUT OVERFLOW. 


0460 


0 663 


2417 




ISZ 


I A0 30 


/BUMP C-F TIMEOUT COUNTER. 


0570 


1037 


7040 




CMA 




/IF NOT, SET A-C TO - 1 . 


0461 


0 664 


5614 




JMP 


I B2 60 


/IF NON-ZERO, SET ACTIVITY FLAG. 


0571 


1040 


1035 




TAD 


A100 


/SET UP LAST- WORD POINTER. 


0462 


0 665 


4550 




JMS 


I A335 


/TYPE TIMEOUT MESSAGE. 


0572 


1041 


3035 




DCA 


A100 




0463 


0 666 


427 5 




D0 60+D0 60+3777- 


D02 5 


0573 


1042 


1435 




TAD 


I A100 


/CONVERT LAST INPUT WORD TO OCTAL 


0464 


0 667 


5220 




JMP 


B280 


/GO ACCESS NEXT TABLE. 


0574 


1043 


4547 


B385, 


JMS 


I A330 




0465 


0 670 


1027 


B300, 


TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0575 


1044 


0472 




D105+D105+12-D025 


0466 


0 671 


7700 




SMA 


CLA 


/TEST FOR MODEL 20-40 C-F. 


057 6 


1045 


1023 




TAD 


A050 


/CONVERT C.E. COUNTER TO OCTAL. 


0 467 


0 672 


5302 




JMP 


B305 


/IF SO, GO TO 20-40 ROUTINE. 


0577 


1046 


4547 




JMS 


I A330 




0 468 


0 673 


1033 




TAD 


A090 


/CONVERT L-P BITS TO NEW FORMAT. 


0578 


1047 


0502 




D105+D105+22-D025 


0469 


0 674 


4557 




JMS 


I A375 




0579 


1050 


1024 




TAD 


A055 


/CONVERT R.E. COUNTER TO OCTAL. 


0470 


0 675 


3033 




DCA 


A090 




0580 


1051 


4547 




JMS 


I A330 




0471 


0 67 6 


4556 




JMS 


I A37 0 


/GET C-F TAPES STATUS. 


0581 


1052 


0512 




D105+D105+32-D025 


0472 


0 677 


6004 




OTSA1 




0582 


1053 


4550 




JMS 


I A335 


/TYPE 1ST LINE OF ERROR MESSAGE. 


0473 


0700 


4557 




JMS 


I A375 


/CONVERT L-P BITS TO NEW FORMAT. 


0583 


1054 


2457 




D1 0 5+D1 05+ 1 777 


-D025 


047 4 


0701 


5304 




JMP 


B310 


/GO TEST IF TAPE IS AT L-P. 


0584 


1055 


7404 




OSR 




/GET SWITCH 7. 


0475 


0702 


4556 


B305, 


JMS 


I A370 


/GET C-F TAPES STATUS. 


0585 


1056 


0225 




AND 


B37 5 




047 6 


0703 


6014 




OTSA 




0 58 6 


1057 


7 640 




SZA 


CLA 


/TEST FOR SINGLE-LINE MESSAGE. 


0477 


0704 


0130 


B3 1 0, 


AND 


A255 


/MASK OFF HARD-LOADPOINT BIT. 


0 587 


10 60 


5322 




JMP 


B420 


/IF SO, GO BUMP RERR COUNTER. 


0478 


0705 


7 640 




SZA 


CLA 


/TEST IF TAPE IS AT LOADPOINT. 


0 588 


1061 


1030 




TAD 


A07 5 


/SET UP TO FORMAT DATA LINES. 


0479 


07 0 6 


561 1 




JMP 


I B247 


/IF SO, GO DEACTIVATE C-F. 


0 589 


10 62 


3021 




DCA 


A040 




0480 


0707 


1033 




TAD 


A090 


/LOAD DETECTED L-P BIT. 


0590 


10 63 


1 141 




TAD 


A300 




0481 


07 10 


0130 




AND 


A255 


/MASK OUT GARBAGE BITS. 


0591 


10 64 


7040 




CMA 






0482 


0711 


7 650 




SNA 


CLA 


/TEST IF TAPE FLASHED L-P. 


0 592 


10 65 


3022 




DCA 


A045 




0483 


0712 


5315 




JMP 


B315 


/IF NOT, GO TEST PASS NUMBER. 


0593 


10 66 


1036 




TAD 


A105 




0484 


0713 


4550 




JMS 


I A335 


/TYPE FLASHED-LOADPOINT MESSAGE. 


0 594 


10 67 


7040 




CMA 






0485 


0714 


2326 




D070+D070+2000- 


D025 


0595 


1070 


1022 




TAD 


A045 




048 6 


0715 


1127 


B31 5, 


TAD 


A250 


/LOAD PASS NUMBER. 


0596 


1071 


3023 




DCA 


A050 




0487 


0716 


7 650 




SNA 


CLA 


/TEST FOR WRITE PASS. 


0 597 


1072 


5277 




JMP 


B39 5 


/GO RESET LINE-SCAN COUNT. 


0488 


0717 


5612 




JMP 


I B250 


/IF SO, GO TEST FOR OVERRUN. 


0598 


1073 


2024 


B390, 


ISZ 


A055 


/BUMP LINE-SCAN COUNT. 


0489 


0720 


7040 




CMA 




/SET A-C TO -1. 


0599 


1074 


5301 




JMP 


B400 


/IF NON-ZERO, GO BUMP DATA CT. 


0490 


0721 


1034 




TAD 


A095 


/ADD C-F CURRENT RECORD NUMBER. 


0 600 


1075 


4546 




JMS 


I A325 


/STORE C-R & L-F IN BUFFER. 


0491 


0722 


7650 




SNA 


CLA 


/TEST FOR FIRST INPUT RECORD. 


0601 


1076 


0402 




D080+D080+20-D025 


0492 


07 23 


5333 




JMP 


B320 


/IF SO, GO TEST FOR DATA ERROR. 


0 602 


1077 


1223 


B395, 


TAD 


B350 


/RESET LINE-SCAN COUNT. 


0493 


07 24 


7040 




CMA 




/SET A-C TO -1. 


0603 


1 100 


3024 




DCA 


A055 




0494 


0725 


1430 




TAD 


I A07 5 


/ADD FIRST INPUT W3RD. 


0 604 


1101 


2023 


B400, 


ISZ 


A050 


/BUMP INPUT DATA COUNT. 



0495 


0726 


7 640 




SZA 


CLA 


/TEST FOR ANOTHER RECORD 1. 


0 605 


1102 


5310 




JMP 


B405 


/IF NON-ZERO, GO STORE NEXT WORD. 


0496 


0727 


5333 




JMP 


B320 


/IF NOT, GO TEST FOR DATA ERROR. 


0 60 6 


1103 


7040 




CMA 




/RESET INPUT DATA COUNT TO - 1 . 


0497 


07 30 


4550 




JMS 


I A335 


/TYPE READ-OVER LOADPOINT MESSAGE. 


0 607 


1104 


3023 




DCA 


A0 50 




0498 


0731 


2343 




D07 5+D07 5+1777- 


D025 


0 608 


1105 


4546 




JMS 


I A325 


/STORE FOUR ASCII X’S IN BUFFER. 


0499 


07 32 


5610 




JMP 


I B245 


/GO ISSUE L-P SEARCH. 


0 609 


1106 


0525 




D1 1 5+D1 1 5- 1 -D025 


0500 


0733 


1034 


B320, 


TAD 


A095 


/SET CONSTANT RECORD NUMBER. 


0610 


1107 


531 6 




JMP 


B41 5 


/GO BUMP MESSAGE COUNT. 


0501 


0734 


3560 




DCA 


I A380 




0 61 1 


1110 


1421 


B405, 


TAD 


I A040 


/CONVERT NEXT INPUT WORD TO OCTAL 


0 502 


0735 


1036 




TAD 


A105 


/LOAD C-F 1-0 WORD COUNT. 


0612 


111 1 


2021 




ISZ 


A040 




0 503 


07 3 6 


7040 




CMA 




/COMPLEMENT WORD COUNT. 


0613 


1112 


4547 




JMS 


I A330 




0504 


07 37 


7510 




SPA 




/TEST FOR INPUT OVERFLOW. 


0 614 


1113 


0520 




D1 10+D1 10-D025 




0505 


0740 


7200 




CLA 




/IF SO, SET A-C TO ZERO. 


0 615 


1114 


4546 




JMS 


I A32 5 


/STORE NEXT WORD IN BUFFER. 


0506 


0741 


3023 




DCA 


A0 50 


/INITIALIZE COMPARE-ERROR COUNTER. 


061 6 


1115 


0517 




D110+D110- 1 -D025 


0507 


0742 


1160 




TAD 


A380 


/SET UP DATA COMPARISON. 


0617 


1116 


2022 


B415, 


ISZ 


A045 


/BUMP MESSAGE COUNT. 


0 508 


0743 


3021 




DCA 


A040 




0 618 


1117 


527 3 




JMP 


B390 


/IF NON-ZERO, LOOP BACK. 


0 509 


0744 


1030 




TAD 


A07 5 




0 619 


1120 


4546 




JMS 


I A325 


/STORE C-R & L-F IN BUFFER. 


0510 


0745 


3022 




DCA 


A045 




0 620 


1121 


0402 




D080+D080+20-D025 


0511 


0746 


1141 




TAD 


A300 




0 621 


1122 


2031 


B420, 


ISZ 


A080 


/BUMP C-F RECORD- ERROR COUNT. 


0512 


07 47 


7041 




CIA 






0 622 


1123 


53 64 




JMP 


B450 


/IF NON-ZERO, GO TEST FOR OVERRUN 


0513 


0750 


1023 




TAD 


A0 50 




0623 


1124 


4550 




JMS 


I A335 


/TYPE TOO -MANY- ERRORS MESSAGE. 


0514 


0751 


3024 




DCA 


A055 




0 624 


1125 


2243 




D055+D0 55+ 1 777- 


D02 5 


0515 


0752 


1024 




TAD 


A0 55 


/LOAD DATA COMPARISON COUNT. 


0 625 


1126 


1027 


B425, 


TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


051 6 


0753 


7 650 




SNA 


CLA 


/TEST FOR ANY DATA TO COMPARE. 


0 62 6 


1127 


7700 




SMA 


CLA 


/TEST FOR MODEL 20-40 C-F. 


0517 


0754 


5371 




JMP 


B327 


/IF NOT, GO TEST FOR RERR. 


0 627 


1130 


5336 




JMP 


B430 


/IF SO, GO TO 20-40 ROUTINE. 


0518 


0755 


1421 


B325, 


TAD 


I A040 


/LOAD NEXT CONSTANT WORD. 


0 628 


1131 


1130 




TAD 


A255 


/LOAD ACTIVE- TAPE BIT. 


0519 


0756 


7041 




CIA 




/COMPLEMENT CONSTANT WORD. 


0 629 


1132 


4557 




JMS 


I A375 


/CONVERT BIT TO OLD FORMAT. 


0 520 


07 57 


1422 




TAD 


I A045 


/ADD NEXT INPUT WORD. 


0 630 


1133 


4556 




JMS 


I A370 


/ISSUE L-P SEARCH COMMAND. 


0521 


07 60 


7 640 




SZA 


CLA 


/TEST FOR COMPARE ERROR. 


0631 


1134 


6014 




ACMD1 




0522 


0761 


2023 




ISZ 


A050 


/IF SO, BUMP COMPARE- ERROR CTR. 


0 632 


1135 


5342 




JMP 


B435 


/GO CLEAR A-C. 


0523 


07 62 


2021 




ISZ 


A040 


/BUMP CONSTANT- DATA POINTER. 


0 633 


1136 


1 1 64 


B430, 


TAD 


A397 


/GET L-P SEARCH COMMAND BITS. 


0524 


07 63 


2022 




ISZ 


A045 


/BUMP INPUT- DATA POINTER. 


0 634 


1137 


1130 




TAD 


A255 




0525 


07 64 


2024 




ISZ 


A0 55 


/BUMP DATA COUNT. 


0 635 


1140 


4556 




JMS 


I A370 


/ISSUE L-P SEARCH COMMAND. 


0526 


07 65 


5355 




JMP 


B325 


/IF NON-ZERO, LOOP BACK. 


0 636 


1141 


6024 




ACMD 




0 527 


0766 


1036 




TAD 


A105 


/LOAD 1-0 BUFFER COUNT. 


0 637 


1142 


7200 


B435, 


CLA 




/CLEAR A-C. 


0 528 


07 67 


7650 




SNA 


CLA 


/TEST FOR INPUT OVERFLOW. 


0 638 


1143 


3031 


B440, 


DCA 


A080 


/DEACTIVATE C-F TABLE. 


0 529 


0770 


2023 




ISZ 


A0 50 


/IF SO, BUMP COMPARE- ERROR CTR. 


0 639 


1144 


4552 




JMS 


I A345 


/RESTORE C-F TABLE. 


0530 


0771 


1027 


B327, 


TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0 640 


1145 


1027 




TAD 


A07 0 


/GET RECORD COUNTERS POINTER. 


0531 


0772 


7700 




SMA 


CLA 


/TEST FOR MODEL 20-40 C-F. 


0 641 


1146 


0224 




AND 


B355 




0532 


0773 


5377 




JMP 


B330 


/IF SO, GO TO 20-40 ROUTINE. 


0 642 


1147 


7112 




CLL 


RTR 




0533 


0774 


4556 




JMS 


I A370 


/GET C-F RECORD- ERROR BIT. 


0 643 


1150 


7012 




RTR 






0534 


0775 


6002 




OTSB1 




0 644 


1151 


7012 




RTR 






0535 


077 6 


5607 




JMP 


I B242 


/GO TEST FOR RECORD ERROR. 


0 645 


1152 


1161 




TAD 


A38 5 




0536 


0777 


4556 


B330, 


JMS 


I A370 


/GET C-F RECORD- ERROR BIT. 


0 646 


1153 


3021 




DCA 


A040 




0537 


1000 


6012 




OTSB 




0 647 


1154 


1130 




TAD 


A255 


/LOAD ACTIVE- TAPE BIT. 


0538 


1001 


7710 


B335, 


SPA 


CLA 


/TEST FOR RECORD ERROR. 


0 648 


1155 


2021 


B445, 


ISZ 


A040 


/BUMP RECORD COUNTERS POINTER. 


0539 


1002 


2024 




ISZ 


A055 


/IF SO, SET RECORD- ERROR COUNTER. 


0 649 


1156 


7110 




CLL 


RAR 


/ROTATE TAPE BIT 1 PLACE RIGHT. 


0540 


1003 


1023 




TAD 


A0 50 


/ADD BOTH ERROR COUNTERS. 


0 650 


1157 


7420 




SNL 




/TEST IF TAPE BIT IS IN LINK. 


0541 


1004 


1024 




TAD 


A055 




0651 


1 1 60 


5355 




JMP 


B445 


/IF NOT, LOOP BACK. 


0542 


1005 


7 650 




SNA 


CLA 


/TEST FOR ERRORS ON THIS RECORD. 


0 652 


1161 


1034 




TAD 


A095 


/STORE TAPE RECORD COUNTER. 


0 543 


1006 


5364 




JMP 


B450 


/IF NOT, GO TEST FOR OVERRUN. 


0653 


1 1 62 


3421 




DCA 


I A040 




0 544 


1007 


7404 




OSR 




/GET SWITCH 6. 


0 654 


1163 


5622 




JMP 


I B340 


/GO ACCESS NEXT TABLE. 


0545 


1010 


0171 




AND 


A41 5 




0 655 


1164 


1034 


B450, 


TAD 


A095 


/LOAD C-F CURRENT RECORD NUMBER. 


0546 


1011 


7 650 




SNA 


CLA 


/TEST FOR SPECIAL -MESSAGE REQ. 


0 65 6 


11 65 


7040 




CMA 




/COMPLEMENT RECORD NUMBER. 


0547 


1012 


522 6 




JMP 


B380 


/IF NOT, GO SET UP ERROR LINES. 


0 657 


1166 


7 640 




SZA 


CLA 


/TEST FOR TAPE OVERRUN. 


0 548 


1013 


7404 




OSR 




/GET SWITCH 7. 


0 658 


11 67 


5373 




JMP 


B455 


/IF NOT, GO CLEAR RUNNING FLAG. 


0549 


1014 


0225 




AND 


B375 




0659 


1170 


4550 




JMS 


I A335 


/TYPE FOUND-NO-LOADPOINT MESSAGE. 




0660 


1171 


4310 




D0 65+ D0 65+4000- 


D02 5 


0770 


1347 


7404 




OSR 




/GET SWITCH 8 IN LINK. 


0661 


1172 


5622 




JMP 


I B340 


/GO ACCESS NEXT TABLE. 


0771 


1350 


7012 




RTR 






0 662 


1 173 


7130 


B455* 


STL 


RAR 


/CLEAR C-F RUNNING FLAG. 


0772 


1351 


7012 




RTR 






0 663 


1 174 


1031 




TAD 


A080 




0773 


1352 


7 630 




SZL CLA 




/TEST IF SWITCH 8 IS ON. 


0 664 


1175 


3031 




DCA 


A080 




0774 


1353 


4544 




JMS I A31 5 




/IF SO* GO RING BELLS & HALT. 


0 665 


1 176 


1132 


B460* 


TAD 


A2 65 


/LOAD HALT FLAG. 


0775 


1354 


5756 




JMP I B510 




/GO PROCESS NEXT TAPE. 


0 666 


1177 


7 650 




SNA 


CLA 


/TEST FOR HALT REQUEST. 


0776 














0 667 


1200 


5207 




JMP 


B4 65 


/IF NOT# GO TEST IF TAPE IS READY. 


0777 


1355 


0402 


B505* 


B140 




/SUBROUTINE EXIT POINT. 


0 668 


1201 


1131 




TAD 


A2 60 


/SET ACTIVITY FLAG. 


0778 


1356 


0420 


B51 0* 


B150 




/NEXT- TAPE LOOP POINT. 


0 669 


1202 


7004 




RAL 






0779 


1357 


0 61 6 


B515* 


B270 




/NEXT- RECORD LOOP POINT. 


0 670 


1203 


7130 




STL 


RAR 




0780 


13 60 


0 620 


B520* 


B280 




/NEXT-ACCESS LOOP POINT. 


0 671 


1204 


3131 




DCA 


A2 60 




0781 


13 61 


1 000 


B525* 


1000 




/MODEL 20-40 READ-START BIT. 


0 672 


1205 


4552 




JMS 


I A345 


/RESTORE C-F TABLE. 


0782 














0 673 


1206 


5760 




JMP 


I B520 


/GO ACCESS NEXT TABLE. 


0783 






/ 








0 674 


1207 


7120 


B465* 


STL 




/SET LINK BIT ON. 


0784 






/SUBROUTINE TO RING 


BELLS AND HALT. THE HALT IS 


0 675 


1210 


4545 




JMS 


I A320 


/TEST IF TAPE IS READY. 


0785 






/TAKEN IF EITHER 


THE LINK BIT OR SWITCH 11 IS ON. 


0 67 6 


121 1 


57 60 




JMP 


I B520 


/IF NOT* GO ACCESS NEXT TABLE. 


0786 






/ 








0 677 


1212 


7130 




STL 


RAR 


/SET C-F RUNNING FLAG. 


0787 


1362 


0000 


B530* 


0 






0 678 


1213 


1031 




TAD 


A080 




0788 


1363 


7604 




LAS 




/GET SENSE SWITCHES. 


0 679 


1214 


3031 




DCA 


A080 




0789 


13 64 


7010 




RAR 




/PUT SWITCH 11 IN LINK. 


0 680 


1215 


3032 




DCA 


A085 


/CLEAR C-F TIMEOUT COUNTER. 


0790 


1365 


7720 




SMA SNL CLA 


/TEST IF HALT IS REQUIRED. 


0 681 


121 6 


3033 




DCA 


A090 


/CLEAR C-F DETECTED L-P BITS. 


0791 


1366 


57 62 




JMP I B530 




/IF NOT* EXIT. 


0 682 


1217 


2034 




ISZ 


A095 


/BUMP C-F CURRENT RECORD NUMBER. 


0792 


1367 


4546 




JMS I A325 




/RING-A-DING-DING! 


0683 


1220 


1030 




TAD 


A075 


/SET UP C-F I - 0 POINTER. 


0793 


1370 


0143 




D045+D045- 1 


-D025 


0 684 


1221 


3035 




DCA 


A 1 00 




0794 


1371 


1135 


B535* 


TAD A280 




/LOAD TELEPRINTER BUFFER POINTER. 


0 685 


1222 


1141 




TAD 


A300 


/SET UP C-F 1-0 COUNT. 


0795 


1372 


7 640 




SZA CLA 




/TEST IF TELEPRINTER IS RUNNING. 


068 6 


1223 


7040 




CMA 






0796 


1373 


5371 




JMP B535 




/IF SO* WAIT. 


0687 


1224 


3036 




DCA 


A105 




0797 


1374 


7 602 




CLA HLT 




/SCREACHING HALT. 


0688 


1225 


1034 




TAD 


A095 


/SET C-F RECORD NO. IN 1-0 AREA. 


0798 


1375 


6001 




ION 




/RE- ION IN CASE START WAS PRESSED. 


0 689 


1226 


3430 




DCA 


I A07 5 




0799 


137 6 


7120 




STL 




/SET LINK BIT ON. 


0 690 


1227 


1034 




TAD 


A095 


/LOAD C-F RECORD NUMBER. 


0800 


1377 


57 62 




JMP I B530 




/EXIT. 


0 691 


1230 


7110 




CLL 


RAR 


/ROTATE 1 PLACE RIGHT. 


0801 








*1400 






0 692 


1231 


7450 




SNA 




/TEST FOR 1ST 1-0 RECORD. 


0802 






/ 








0 693 


1232 


1127 




TAD 


A250 


/IF SO* LOAD PASS NUMBER. 


0803 






/SUBROUTINE TO TEST 


IF ACTIVE TAPES ARE READY. IF THE 


0 694 


1233 


7 640 




SZA 


CLA 


/TEST FOR WRITE PASS. 


0804 






/LINK 


BIT IS ON AND 


ANY TAPE IS NOT READY* THE TAPE 


0 695 


1234 


5247 




JMP 


B467 


/IF NOT* GO RESTORE C-F TABLE. 


0805 






/WILL 


ALWAYS BE DISABLED. IF THE LINK BIT IS OFF AND 


0 696 


1235 


1034 




TAD 


A095 


/STORE C-F RECORD NO. IN DATA. 


0806 






/ANY 


TAPE IS NOT 


READY* THE TAPE WILL BE DISABLED ONLY 


0 697 


1236 


35 60 




DCA 


I A380 




0807 






/IF SWITCH 11 IS 


OFF. 


0 698 


1237 


1 1 60 




TAD 


A380 


/SET UP DATA MOVE. 


0808 






/ 








0 699 


1240 


3024 




DCA 


A055 




0809 


1400 


0000 


B540* 


0 






0700 


1241 


1030 




TAD 


A07 5 




0810 


1401 


7010 




RAR 




/SAVE LINK BIT. 


0701 


1242 


3025 




DCA 


A0 60 




0811 


1402 


3017 




DCA A030 






0702 


1243 


1141 




TAD 


A300 




0812 


1403 


1027 




TAD A070 




/LOAD C-F IDENTIFIER WORD. 


0703 


1244 


7041 




CIA 






0813 


1404 


7700 




SMA CLA 




/TEST FOR MODEL 20-40 C-F. 


0704 


1245 


302 6 




DCA 


A0 65 




0814 


1405 


5225 




JMP B545 




/IF SO* GO TO 20-40 ROUTINE. 


0705 


1246 


4553 




JMS 


I A350 


/EXECUTE 1-0 DATA MOVE. 


0815 


1406 


4556 




JMS I A370 




/STORE C-F FILE-PROTECT BITS. 


0706 


1247 


4552 


B4 67* 


JMS 


I A345 


/RESTORE C-F TABLE. 


0816 


1407 


6004 




OTSA1 






0707 


1250 


1027 




TAD 


A070 


/LOAD C-F IDENTIFIER WORD. 


0817 


1410 


7012 




RTR 






0708 


1251 


7700 




SMA 


CLA 


/TEST FOR MODEL 20-40 C-F. 


0818 


141 1 


7012 




RTR 






0709 


1252 


527 6 




JMP 


B475 


/IF SO> GO TO 20-40 ROUTINE. 


0819 


1412 


7040 




CMA 






0710 


1253 


1127 




TAD 


A250 


/LOAD PASS NUMBER. 


0820 


1413 


4557 




JMS I A375 






0711 


1254 


7 640 




SZA 


CLA 


/TEST FOR READ PASS. 


0821 


1414 


3020 




DCA A035 






0712 


1255 


7001 




I AC 




/IF SO* SET A-C TO 1. 


0822 


1415 


4556 




JMS I A370 




/GET C-F BUSY BITS. 


0713 


1256 


7040 




CMA 




/STORE BIT-ROTATION COUNT. 


0823 


141 6 


60 0 4 




OTSA1 






0714 


1257 


3017 




DCA 


A030 




0824 


1417 


7006 




RTL 







0715 


12 60 


1130 




TAD 


A255 


/LOAD ACTIVE- TAPE BIT. 


0825 


1420 


7006 




RTL 






0716 


1261 


4557 




JMS 


I A375 


/CONVERT BIT TO OLD FORMAT. 


082 6 


1421 


7004 




RAL 






0717 


12 62 


7106 


B470* 


CLL 


RTL 


/ROTATE BIT 4 PLACES LEFT. 


0827 


1422 


7040 




CMA 






0718 


12 63 


7006 




RTL 






0828 


1423 


4557 




JMS 


I A375 




0719 


12 64 


2017 




ISZ 


A030 


/BUMP BIT-ROTATION COUNT. 


0829 


1424 


5245 




JMP 


B550 


/GO TEST IF TAPE IS BUSY. 


0720 


12 65 


52 62 




JMP 


B470 


/IF NON-ZERO* GO ROTATE AGAIN. 


0830 


1425 


4556 


B545* 


JMS 


I A370 


/GET C-F NOT- ON-LINE BITS. 


0721 


12 66 


4556 




JMS 


I A370 


/ROLL ’EM* BABY! 


0831 


142 6 


6012 




OTSB 




0722 


12 67 


6014 




ACMDl 




0832 


1427 


7040 




CMA 






07 23 


1270 


3017 




DCA 


A030 


/STORE ACTIVE- TAPE BITS. 


0833 


1430 


0130 




AND 


A255 


/MASK AGAINST ACTIVE- TAPE BIT. 


0724 


1271 


4556 




JMS 


I A370 


/GET C-F TAPES STATUS. 


0834 


1431 


7640 




SZA 


CLA 


/TEST IF TAPE IS NOT ON LINE. 


0725 


1272 


6004 




OTSA1 




0835 


1432 


52 60 




JMP 


B555 


/IF SO* GO TYPE NOT-ON-LINE MSG. 


0726 


1273 


0017 




AND 


A030 


/MASK AGAINST ACTIVE- TAPE BITS. 


0836 


1433 


4556 




JMS 


I A370 


/STORE C-F FILE-PROTECT BITS. 


0727 


1274 


531 1 




JMP 


B477 


/GO TEST IF TAPE IS RUNNING. 


0837 


1434 


6014 




OTSA 




0728 


1275 


531 6 




JMP 


B480 


/GO SET ACTIVITY FLAG. 


0838 


1435 


7012 




RTR 






0729 


127 6 


1127 


B47 5* 


TAD 


A250 


/LOAD PASS NUMBER. 


0839 


1436 


7012 




RTR 






0730 


1277 


7 650 




SNA 


CLA 


/TEST FOR WRITE PASS. 


0840 


1437 


3020 




DCA 


A035 




0731 


1300 


1361 




TAD 


B525 


/IF SO* GET WRITE- START BIT. 


0841 


1440 


4556 




JMS 


I A370 


/GET C-F BUSY BITS. 


0732 


1301 


1361 




TAD 


B525 


/IF NOT* GET READ- START BIT. 


0842 


1441 


6014 




OTSA 




0733 


1302 


1130 




TAD 


A255 


/ADD ACTIVE- TAPE BIT. 


0843 


1442 


7006 




RTL 






0734 


1303 


4556 




JMS 


I A370 


/ROLL ’EM* BABY! 


0844 


1443 


700 6 




RTL 






0735 


1304 


60 24 




ACMD 




0845 


1444 


7004 




RAL 






0736 


1305 


4556 




JMS 


I A370 


/LOAD C-F TAPES STATUS. 


0846 


1445 


0130 


B550* 


AND 


A255 


/MASK AGAINST ACTIVE- TAPE BIT. 


0737 


130 6 


6013 




OTSB+1 




0847 


1446 


7 640 




SZA 


CLA 


/TEST IF TAPE IS BUSY. 


07 38 


1307 


7006 




RTL 




/ISOLATE 1-0 MODE BIT. 


0848 


1447 


52 62 




JMP 


B565 


/IF SO* GO TYPE NOT-READY MESSAGE. 


0739 


1310 


7230 




CLA 


CML RAR 




0849 


1450 


1127 




TAD 


A250 


/LOAD PASS NUMBER. 


0740 


131 1 


7 650 


B477* 


SNA 


CLA 


/TEST IF TAPE IS RUNNING. 


0850 


1451 


7 650 




SNA 


CLA 


/TEST FOR WRITE PASS. 


0741 


1312 


531 6 




JMP 


B480 


/IF SO* GO SET ACTIVITY FLAG. 


0851 


1452 


1020 




TAD 


A035 


/IF SO* LOAD FILE-PROTECT BITS. 


07 42 


1313 


4550 




JMS 


I A335 


/TYPE FAIL ED- TO- START MESSAGE. 


0852 


1453 


0130 




AND 


A255 


/MASK AGAINST ACTIVE-TAPE BIT. 


0743 


1314 


4533 




D117+D117+3777- 


D025 


0853 


1454 


7640 




SZA 


CLA 


/TEST IF TAPE IS FILE-PROTECTED. 


0744 


1315 


57 60 




JMP 


I B520 


/GO ACCESS NEXT TABLE. 


0854 


1455 


52 61 




JMP 


B560 


/IF SO* GO TYPE FILE-PROTECT MSG. 


0745 


131 6 


7240 


B480* 


STA 




/SET ACTIVITY & RUNNING FLAGS. 


0855 


1456 


2200 




ISZ 


B540 


/BUMP RETURN ADDRESS. 


0746 


1317 


3131 




DCA 


A2 60 




0856 


1457 


5600 




JMP 


I B540 


/EXIT. 


0747 


1320 


57 60 




JMP 


I B520 


/GO ACCESS NEXT TABLE. 


0857 


1460 


1376 


B555* 


TAD 


B 630 


/GET NOT-ON-LINE MESSAGE ADDRESS. 


07 48 


1321 


1131 


B48 5* 


TAD 


A2 60 


/END OF TABLES -- LOAD ACT. FLAG. 


0858 


1461 


137 5 


B5 60* 


TAD 


B625 


/GET FILE-PROTECT MESSAGE ADDRESS. 


0749 


1322 


7450 




SNA 




/TEST IF ANY C-F IS ACTIVE. 


0859 


1462 


1374 


B5 65* 


TAD 


B620 


/GET NOT-READY MESSAGE ADDRESS. 


0750 


1323 


5341 




JMP 


B500 


/IF NOT* GO TEST FOR END OF PASS. 


08 60 


1463 


1017 




TAD 


A030 


/ADD IN DISABLE BIT. 


0751 


1324 


7040 




CMA 




/GET NOT-RUNNING FLAG. 


08 61 


1464 


32 66 




DCA 


B570 


/STORE MESSAGE ADDRESS BELOW. 


0752 


1325 


0132 




AND 


A2 65 


/MASK WITH HALT FLAG. 


08 62 


1465 


4550 




JMS 


I A335 


/TYPE APPROPRIATE ERROR MESSAGE. 


0753 


132 6 


7654 




SNA 


LAS 


/TEST IF HALT IS REQUIRED. 


08 63 


1466 


0000 


B570* 


0 






0754 


1327 


5336 




JMP 


B495 


/IF NOT* GO SET HALT FLAG. 


08 64 


14 67 


5600 




JMP 


I B540 


/EXIT. 


0755 


1330 


7200 




CLA 




/CLEAR A-C. 


08 65 






/ 








0756 


1331 


1135 


B490* 


TAD 


A280 


/LOAD TELEPRINTER BUFFER POINTER. 


0866 






/SUBROUTINE TO BUFFER 


AND INITIATE PRINTED MESSAGES. 


07 57 


1332 


7 640 




SZA 


CLA 


/TEST IF TELEPRINTER IS RUNNING. 


08 67 






/ 








07 58 


1333 


5331 




JMP 


B490 


/IF SO* WAIT. 


08 68 


1470 


0000 


B575* 


0 






07 59 


1334 


7602 




CLA 


HLT 


/SCREACHING HALT. 


08 69 


1471 


1 670 




TAD 


I B575 


/SET MESSAGE SOURCE ADDRESS. 


07 60 


1335 


6001 




ION 




/RE- ION IN CASE START WAS PRESSED. 


0870 


1472 


3017 




DCA 


A030 




07 61 


1336 


7012 


B495* 


RTR 




/SET OR CLEAR HALT FLAG. 


0871 


1473 


4555 




JMS 


I A3 65 


/GET 1ST MESSAGE CHARACTER. 


07 62 


1337 


7204 




CLA 


RAL 




0872 


1474 


1377 




TAD 


B635 


/ADD RUBOUT COMPLEMENT. 


07 63 


1340 


57 57 




JMP 


I B51 5 


/GO ACCESS NEXT TABLE. 


0873 


147 5 


7 640 




SZA 


CLA 


/TEST IF MESSAGE HAS RUBOUTS. 


07 64 


1341 


1130 


B500* 


TAD 


A255 


/LOAD ACTIVE- TAPE BIT. 


0874 


1476 


5305 




JMP 


B580 


/IF NOT* GO STORE BUFFER ADDRESS. 


07 65 


1342 


7104 




CLL 


RAL 


/SHIFT BIT 1 PLACE LEFT. 


0875 


1477 


1135 




TAD 


A280 


/LOAD TELEPRINTER BUFFER ADDRESS. 


0766 


1343 


0172 




AND 


A420 


/MASK OFF VALID TAPE BITS. 


0876 


1500 


7650 




SNA 


CLA 


/TEST IF TELEPRINTER IS RUNNING. 


07 67 


1344 


7450 




SNA 




/TEST FOR END OF PASS. 


0877 


1501 


5305 




JMP 


B580 


/IF NOT* GO STORE BUFFER ADDRESS. 


07 68 


1345 


5755 




JMP 


I B50 5 


/IF SO* GO EXIT. 


0878 


1502 


2017 




ISZ 


A030 


/BUMP MESSAGE ADDRESS BY 3. 


07 69 


1346 


3130 




DCA 


A255 


/RESTORE ACTIVE- TAPE BIT. 


0879 


1503 


2017 




ISZ 


A030 






0880 


1504 


2017 




ISZ 


A030 




0990 


1 642 


1552 




TAD 


I A345 


/STORE ASCII TAPE NO. IN PREFIX. 


0881 


1505 


1134 


B580* 


TAD 


A275 


/SAVE MESSAGE BUFFER ADDRESS- 


0991 


1 643 


4554 




JMS 


I A3 60 




0882 


1506 


3552 




DCA 


I A345 




0992 


1 644 


2020 




ISZ 


A035 


/BUMP PREFIX MESSAGE ADDRESS. 


0883 


1 507 


1134 




TAD 


A27 5 


/SET BUFFER DESTINATION ADDRESS. 


0993 


1 645 


1553 




TAD 


I A350 


/LOAD REMAINING TAPE BITS. 


0884 


1510 


3020 


B58 5* 


DCA 


A035 




0994 


1 646 


7440 


B660* 


SZA 




/TEST FOR ANY REMAINING BITS. 


0885 


151 1 


1020 


B590* 


TAD 


A035 


/LOAD DESTINATION ADDRESS. 


0995 


1 647 


5235 




JMP 


B655 


/IF SO* LOOP BACK. 


0886 


1512 


7041 




CIA 




/COMPLEMENT ADDRESS- 


0996 


1 650 


1027 




TAD 


A07 0 


/GET C-F LETTER CODE. 


0887 


1513 


1135 




TAD 


A280 


/ADD TELEPRINTER BUFFER ADDRESS- 


0997 


1 651 


7006 




RTL 






0888 


1514 


7 650 




SNA 


CLA 


/TEST FOR BUFFER WRAPAROUND. 


0998 


1 652 


7006 




RU- 






0889 


1515 


531 1 




JMP 


B590 


/IF SO* WAIT. 


0999 


1 653 


7004 




RAL 






0890 


151 6 


1020 




TAD 


A035 


/LOAD DESTINATION ADDRESS- 


1000 


1 654 


0173 




AND 


A425 




0891 


1517 


7040 




CMA 




/COMPLEMENT DESTINATION ADDRESS. 


1001 


1 655 


7001 




I AC 






0892 


1520 


7 640 




SZA 


CLA 


/TEST FOR END OF BUFFER. 


1002 


1 656 


4554 




JMS 


I A3 60 


/STORE C-F LETTER CODE IN PREFIX. 


0893 


1521 


5324 




JMP 


B595 


/IF NOT* GO STORE CHARACTER. 


1003 


1657 


2020 




ISZ 


A035 


/BUMP PREFIX MESSAGE ADDRESS. 


0894 


1522 


1 1 63 




TAD 


A395 


/LOAD STARTING BUFFER ADDRESS. 


1004 


1 660 


1171 




TAD 


A41 5 


/LOAD ASCII SPACE. 


0895 


1523 


5310 




JMP 


B58 5 


/GO RESET BUFFER ADDRESS. 


1005 


1 661 


4554 




JMS 


I A3 60 


/STORE ASCII SPACE IN PREFIX. 


0896 


1524 


4555 


B595* 


JMS 


I A3 65 


/STORE NEXT MESSAGE CHARACTER. 


1006 


1 662 


2020 




ISZ 


A035 


/BUMP PREFIX MESSAGE ADDRESS. 


0897 


1525 


4554 




JMS 


I A3 60 




1007 


1 663 


4554 




JMS 


I A3 60 


/SUFFIX TERMINATOR TO PREFIX. 


0898 


152 6 


4555 




JMS 


I A3 65 


/RELOAD CHARACTER. 


1008 


1 664 


4546 




JMS 


I A325 


/TYPE OUT PREFIX MESSAGE. 


0899 


1527 


7650 




SNA 


CLA 


/TEST FOR END OF MESSAGE. 


1009 


1 665 


0437 




D095+D095-1 


-D025 


0900 


1530 


5334 




JMP 


B 600 


/IF SO* GO RESET BUFFER ADDRESS. 


1010 


1666 


4546 




JMS 


I A325 


/TYPE OUT TAPE ERROR MESSAGE. 


0901 


1531 


2017 




ISZ 


A030 


/BUMP MESSAGE SOURCE ADDRESS. 


1011 


1667 


0000 


B665* 


0 






0902 


1532 


2020 




ISZ 


A035 


/BUMP BUFFER DESTINATION ADDR. 


1012 


1 670 


4546 




JMS 


I A325 


/TYPE OUT SUFFIX MESSAGE. 


0903 


1533 


531 1 




JMP 


B590 


/GO STORE NEXT CHARACTER. 


1013 


1671 


0000 


B670* 


0 






0904 


1534 


1020 


B600* 


TAD 


A035 


/RESET MESSAGE BUFFER ADDRESS. 


1014 


1 672 


5600 




JMP 


I B 640 


/EXIT. 


0905 


1535 


3134 




DCA 


A275 




1015 






/ 








0906 


1536 


1135 




TAD 


A280 


/LOAD TELEPRINTER BUFFER ADDR. 


1016 






/SUBROUTINE TO ACCESS NEXT CARTRI FILE TABLE. 


0907 


1537 


7 640 




SZA 


CLA 


/TEST IF TELEPRINTER IS RUNNING. 


1017 






/ 








0908 


1540 


5345 




JMP 


B605 


/IF SO* GO EXIT. 


1018 


1 673 


0000 


B675* 


0 






0909 


1541 


1552 




TAD 


I A345 


/SET TELEPRINTER BUFFER ADDRESS. 


1019 


167 4 


1133 




TAD 


A270 


/LOAD C-F TABLE POINTER. 


0910 


1542 


3135 




DCA 


A280 




1020 


1 67 5 


1366 




TAD 


B715 


/ADD END-OF- TABLE CONSTANT. 


091 1 


1543 


7040 




CMA 




/LOAD A RUBOUT. 


1021 


1 67 6 


7710 




SPA 


CLA 


/TEST FOR END OF TABLES. 


0912 


1544 


6046 




TLS 




/SOCK IT TO THE TELEPRINTER. 


1022 


1 677 


5303 




JMP 


B 680 


/IF NOT* GO BUMP TABLE PTR. 


0913 


1545 


7300 


B605* 


CLA 


CLL 


/CLEAR A-C AND LINK. 


1023 


1700 


1142 




TAD 


A305 


/RESET C-F TABLE POINTER. 


0914 


1546 


2270 




ISZ 


B57 5 


/BUMP RETURN ADDRESS- 


1024 


1701 


3133 




DCA 


A27 0 




0915 


1547 


5670 




JMP 


I B575 


/EXIT. 


1025 


1702 


567 3 




JMP 


I B675 


/EXIT. 


0916 






/ 








102 6 


1703 


1133 


B680* 


TAD 


A270 


/BUMP C-F TABLE POINTER. 


0917 






/SUBROUTINE TO CONVERT 12-BIT WORDS TO FOUR PRINTABLE 


1027 


1704 


137 5 




TAD 


B750 




0918 






/OCTAL DIGITS AND 


STORE THE OCTAL DIGITS IN OUTPUT 


1028 


1705 


3133 




DCA 


A27 0 




0919 






/MESSAGES. 


. AT ENTRY* THE WORD TO BE CONVERTED IS IN 


1029 


1706 


1133 




TAD 


A270 


/SET UP TABLE- TO- WORKAREA MOVE. 


0920 






/THE 


A-C* 


AND THE 


CALLING SEQUENCE CONTAINS THE 


1030 


1707 


3024 




DCA 


A055 




0921 






/DESTINATION CHARACTER POINTER- 


1031 


1710 


1142 




TAD 


A305 




0922 






/ 








1032 


171 1 


3025 




DCA 


A0 60 




0923 


1550 


0000 


B61 0* 


0 






1033 


1712 


1372 




TAD 


B7 35 




0924 


1551 


3552 




DCA 


I A345 


/SAVE DATA WORD. 


1034 


1713 


3026 




DCA 


A0 65 




0925 


1552 


1750 




TAD 


I B 61 0 


/SET DESTINATION CHARACTER POINTER. 


1035 


1714 


4553 




JMS 


I A3 50 


/MOVE C-F TABLE TO WORKAREA. 


0926 


1553 


3020 




DCA 


A035 




1036 


1715 


2273 




ISZ 


B 67 5 


/BUMP RETURN ADDRESS. 


0927 


1554 


2350 




ISZ 


B 61 0 


/BUMP RETURN ADDRESS. 


1037 


1716 


5673 




JMP 


I B 675 


/EXIT. 


0928 


1555 


1175 




TAD 


A430 


/SET LOOP COUNT OF -4. 


1038 






/ 








0929 


1556 


3553 




DCA 


I A350 




1039 






/SUBROUTINE TO RESTORE CURRENT CARTRI FILE TABLE. 


0930 


1557 


1552 


B61 5* 


TAD 


I A345 


/LOAD DATA WORD. 


1040 






/ 








0931 


15 60 


7006 




RU- 




/ROTATE WORD 3 BITS LEFT. 


1041 


1717 


0000 


B68 5* 


0 






0932 


1561 


7004 




RAL 






1042 


1720 


1142 




TAD 


A30 5 


/SET UP WORKAREA- TO -TABLE MOVE. 


0933 


1562 


3552 




DCA 


I A345 


/RESTORE DATA WORD. 


1043 


1721 


3024 




DCA 


A055 




0934 


1563 


1552 




TAD 


I A345 


/ISOLATE NEXT OCTAL DIGIT. 


1044 


1722 


1133 




TAD 


A27 0 





0935 


1564 


7004 




RAL 








1045 


1723 


3025 




DCA A0 60 




0936 


1565 


0173 




AND 


A425 






1046 


1724 


1372 




TAD B735 




0937 


1566 


1170 




TAD 


A410 




/ADD 6-BIT ASCII ZERO. 


1047 


1725 


302 6 




DCA A0 65 




0938 


1567 


4554 




JMS 


I A3 60 




/STORE DIGIT IN MESSAGE. 


1048 


1726 


4553 




JMS I A350 


/MOVE W3RKAREA TO C-F TABLE. 


0939 


1570 


2020 




ISZ 


A035 




/BUMP DESTINATION CHARACTER PTR. 


1049 


1727 


5717 




JMP I B685 


/EXIT. 


0940 


1571 


2553 




ISZ 


I A350 




/BUMP LOOP COUNT. 


1050 






/ 






0941 


1572 


5357 




JMP 


B 61 5 




/IF NON-ZERO* LOOP BACK. 


1051 






/SUBROUTINE TO MOVE 


WORD STRINGS. AT ENTRY* THE SOURCE 


0942 


157 3 


5750 




JMP 


I B61 0 




/EXIT. 


10 52 






/WORD 


ADDRESS IS IN 


WR6* THE DESTINATION WORD ADDRESS 


0943 
















1053 






/IS IN WR7* AND THE 


NEGATED WORD COUNT I S IN WR8 • 


0944 


1574 


0173 


B620* 


D050+D0 50- 1 - 


D025 /NOT-READY MESSAGE ADDRESS. 


1054 






/ 






0945 


157 5 


0013 


B62 5* 


0013 




/FILE-PROTECT MESSAGE OFFSET. 


1055 


1730 


0000 


B690* 


0 




0946 


157 6 


0020 


B630* 


0020 




/NOT-ON-LINE MESSAGE OFFSET. 


1056 


1731 


1424 


B695* 


TAD I A055 


/MOVE NEXT DATA WORD. 


0947 


1577 


7741 


B635* 


7741 






/6-BIT ASCII RUBOUT COMPLEMENT. 


1057 


1732 


3425 




DCA I A0 60 




0948 






/ 










1058 


1733 


2024 




ISZ A055 


/BUMP SOURCE WORD ADDRESS. 


0949 






/SUBROUTINE TO SET UP 


TAPE ERROR MESSAGES. THE CALLING 


10 59 


1734 


2025 




ISZ A0 60 


/BUMP DESTINATION WORD ADDRESS. 


0950 






/SEQUENCE 


SPECIFIES A 


SKELETON -MESSAGE CHARACTER POINTER 


10 60 


1735 


2026 




ISZ A065 


/BUMP WORD COUNT. 


0951 






/WHOSE HIGH-ORDER 


TWO 


BITS ARE USED AS FLAGS. IF BIT 0 


10 61 


1736 


5331 




JMP B695 


/IF NON-ZERO* LOOP BACK. 


0952 






/IS SET* THE TAPE 


WILL BE DISABLED! IF BIT 1 IS SET* THE 


10 62 


1737 


57 30 




JMP I B 690 


/EXIT. 


0953 






/TAPE 


WILL NOT BE 


DISABLED. IF NEITHER BIT IS SET* THE 


10 63 






/ 






0954 






/TAPE 


WILL BE DISABLED ONLY IF SWITCH 11 IS OFF. 


10 64 






/SUBROUTINE TO STORE 6- BIT CHARACTERS RI GHT- JUST I FI ED 


0955 






/ 










10 65 






/FROM 


THE A-C. AT 


ENTRY* THE DESTINATION CHARACTER 


0956 


1 600 


0000 


B640, 


0 








1066 






/POINTER IS IN WR2. 




0957 


1 601 


1 600 




TAD 


I B 640 




/LOAD MESSAGE ADDRESS. 


10 67 






/ 






0958 


1 602 


7004 




RAL 






/ROTATE BITS 1 PLACE LEFT. 


1068 


1740 


0000 


B700* 


0 




0959 


1 603 


7710 




SPA 


CLA 




/TEST FOR NO DISABLE. 


10 69 


1741 


3551 




DCA I A340 


/SAVE 6-BIT CHARACTER. 


09 60 


1 604 


5222 




JMP 


B650 




/IF SO* GO SET C-R/L-F SUFFIX. 


1070 


1742 


7100 




CLL 


/CLEAR LINK BIT. 


0961 


1 605 


7430 




SZL 






/TEST FOR FORCED DISABLE. 


1071 


1743 


1020 




TAD A035 


/SET UP DESTINATION WORD ADDRESS. 


09 62 


1 60 6 


5213 




JMP 


B645 




/IF SO* GO DEACTIVATE C-F TABLE. 


1072 


1744 


1 1 62 




TAD A390 




09 63 


1607 


7404 




OSR 






/GET SWITCH 11 IN LINK. 


107 3 


1745 


7010 




RAR 




09 64 


1 610 


7010 




RAR 








1074 


1746 


3026 




DCA A0 65 




09 65 


1 61 1 


7630 




SZL 


CLA 




/TEST IF SWITCH 11 IS ON. 


107 5 


1747 


7430 




SZL 


/TEST FOR ODD CHARACTER. 


0966 


1 612 


5222 




JMP 


B650 




/IF SO* GO SET C-R/L-F SUFFIX. 


107 6 


1750 


5361 




JMP B70 5 


/IF SO* GO STORE CHARACTER. 


09 67 


1 613 


3031 


B645* 


DCA 


A080 




/DEACTIVATE C-F TABLE. 


1077 


1751 


1551 




TAD I A340 


/SHIFT CHARACTER 6 BITS LEFT. 


09 68 


1 614 


1130 




TAD 


A255 




/DISABLE THIS TAPE. 


1078 


1752 


7006 




RTL 




09 69 


1 615 


7040 




CMA 








1079 


1753 


7006 




RTL 




0970 


1 61 6 


0027 




AND 


A070 






1080 


1754 


7006 




RTL 




0971 


1 617 


3027 




DCA 


A07 0 






1081 


1755 


3551 




DCA I A340 




0972 


1 620 


4552 




JMS 


I A345 




/RESTORE C-F TABLE. 


1082 


1756 


142 6 




TAD I A0 65 


/LOAD DESTINATION WORD. 


0973 


1 621 


1 370 




TAD 


B725 




/LOAD DISABLE MESSAGE ADDRESS. 


1083 


1757 


01 66 




AND A405 


/MASK OUT UPPER 6 BITS. 


0974 


1 622 


1367 


B650* 


TAD 


B720 




/LOAD C-R L-F MESSAGE ADDRESS. 


1084 


17 60 


53 63 




JMP B710 


/GO INSERT NEW CHARACTER. 


0975 


1 623 


3271 




DCA 


B670 




/STORE SUFFIX ADDRESS BELOW. 


1085 


1761 


142 6 


B705* 


TAD I A0 65 


/LOAD DESTINATION WORD. 


0976 


1 624 


1 600 




TAD 


I B640 




/STORE MESSAGE ADDRESS BELOW. 


108 6 


17 62 


0373 




AND B740 


/MASK OUT LOWER 6 BITS. 


0977 


1 625 


0374 




AND 


B745 






1087 


1763 


1551 


B710* 


TAD I A340 


/INSERT NEW CHARACTER. 


0978 


1 62 6 


32 67 




DCA 


B665 






1088 


17 64 


342 6 




DCA I A0 65 


/RESTORE DESTINATION WORD. 


0979 


1 627 


2200 




ISZ 


B640 




/BUMP RETURN ADDRESS. 


1089 


17 65 


5740 




JMP I B700 


/EXIT. 


0980 


1 630 


1371 




TAD 


B730 




/INITIALIZE PREFIX ADDRESS. 


1090 












0981 


1 631 


3020 




DCA 


A035 






1091 


1766 


7661 


B715* 


-A225-1 


/C-F TABLE- END CONSTANT. 


0982 


1 632 


1 170 




TAD 


A41 0 




/INITIALIZE ASCII TAPE NUMBER. 


1092 


17 67 


0402 


B720* 


D080+D080+20- 


D025 /C-R L-F SUFFIX ADDRESS. 


0983 


1 633 


3552 




DCA 


I A345 






1093 


1770 


77 60 


B725* 


7760 


/DISABLE SUFFIX OFFSET. 


0984 


1634 


1130 




TAD 


A255 




/LOAD TAPE BITS. 


1094 


1771 


0443 


B730* 


D095+D095+3-D025 /PREFIX DATA ADDRESS. 


0985 


1 635 


2552 


B655* 


ISZ 


I A345 




/BUMP ASCII TAPE NUMBER. 


1095 


1772 


7770 


B7 35* 


7770 


/CONSTANT -8. 


0986 


1 636 


7110 




CLL 


RAR 




/ROTATE TAPE BITS 1 PLACE LEFT. 


1096 


1773 


7700 


B740* 


7700 


/UPPER 6-BIT CHARACTER MASK. 


0987 


1 637 


7420 




SNL 






/TEST IF THIS BIT IS SET. 


1097 


1774 


1777 


B745* 


1777 


/MESSAGE ADDRESS MASK. 


0988 


1 640 


5246 




JMP 


B 660 




/IF NOT* GO TEST FOR MORE BITS. 


1098 


1775 


0010 


B750* 


0010 


/CONSTANT +8. 


0989 


1 641 


3553 




DCA 


I A350 




/SAVE REMAINING TAPE BITS. 


1099 








*2000 






1 100 






/ 








1210 


2127 


7130 




STL RAR 


/ISSUE WRITE-STOP COMMAND. 


1101 






/ROUTINE TO LOADPOINT- 


-SEARCH ANY AND ALL ACTIVE TAPES. 


1211 


2130 


6524 


C0 60* 


ACMD C 




1102 






/ 








1212 


2131 


5335 




JMP C075 


/GO SET LINK BIT. 


1103 


2000 


6002 




IOF 




/TURN OFF INTERRUPTS. 


1213 


2132 


1465 


C0 65* 


TAD I A1 60 


/WRITE NEXT WORD. 


1104 


2001 


7200 




CLA 




/CLEAR A-C. 


1214 


2133 


2065 




ISZ A1 60 




1105 


2002 


1142 




TAD A305 




/RESET C-F TABLE POINTER. 


1215 


2134 


6534 


C070* 


OTB C 




1106 


2003 


3133 




DCA A270 






1216 


2135 


7320 


C07 5* 


CLA STL 


/SET LINK BIT ON. 


1107 


2004 


4551 


B755* 


JMS I A340 




/ACCESS NEXT C-F TABLE. 


1217 












1108 


2005 


5222 




JMP B7 60 




/AT END* GO HALT. 


1218 


2136 


6632 


C080* 


SDCL D 


/TEST FOR WRITE-CALL ON C-F D. 


1109 


200 6 


1027 




TAD A070 




/LOAD C-F IDENTIFIER WORD. 


1219 


2137 


5351 




JMP Cl 05 


/IF NOT* GO TEST C-F E. 


1110 


2007 


01 65 




AND A400 




/MASK OFF C-F HARDWARE ADDRESS. 


1220 


2140 


207 6 




ISZ A185 


/BUMP 1-0 COUNT* 


1111 


2010 


7 650 




SNA CLA 




/TEST IF THIS TABLE IS ACTIVE. 


1221 


2141 


5345 




JMP C090 


/IF NON-ZERO* WRITE NEXT WORD. 


1112 


2011 


5204 




JMP B755 




/IF NOT* GO ACCESS NEXT TABLE. 


1222 


2142 


7130 




STL RAR 


/SET LINK BIT ON. 


1113 


2012 


1274 




TAD B800 




/LOAD MODEL 20-40 L-P SEARCH BITS. 


1223 


2143 


6624 


C08 5* 


ACMD D 




1114 


2013 


4556 




JMS I A370 




/ISSUE MODEL 20-40 L-P SEARCH. 


1224 


2144 


5350 




JMP C100 


/GO SET LINK BIT. 


1115 


2014 


6024 




ACMD 






1225 


2145 


147 5 


C090* 


TAD I A180 


/WRITE NEXT WORD. 


1116 


2015 


0172 




AND A420 




/MASK OUT HI GH- ORDER BIT. 


1226 


2146 


207 5 




ISZ A180 




1 1 17 


201 6 


4556 




JMS I A370 




/ISSUE 4096-4196 L-P SEARCH. 


1227 


2147 


6634 


C095* 


OTB D 




1 1 18 


2017 


6014 




ACMD1 






1228 


2150 


7320 


C100* 


CLA STL 


/SET LINK BIT ON. 


1 119 


2020 


7200 




CLA 




/CLEAR A-C. 


1229 












1120 


2021 


5204 




JMP B755 




/GO ACCESS NEXT TABLE. 


1230 


2151 


6672 


Cl 05* 


SDCL E 


/TEST FOR WRITE- CALL ON C-F E. 


1121 


2022 


7602 


B7 60* 


CLA HLT 




/DEAD-END HALT. 


1231 


2152 


53 64 




JMP Cl 30 


/IF NOT* GO TEST C-F F. 


1122 


2023 


5222 




JMP B7 60 






1232 


2153 


2106 




ISZ A205 


/BUMP 1-0 COUNT. 


1 123 






/ 








1233 


2154 


53 60 




JMP Cl 15 


/IF NON-ZERO* WRITE NEXT WORD. 


1124 






/SUBROUTINE TO LOAD 6-BIT CHARACTERS RI GHT- JUSTI FI ED 


1234 


21 55 


7130 




STL RAR 


/ISSUE WRITE-STOP COMMAND. 


1125 






/INTO 


THE A-C. AT 


ENTRY* THE SOURCE CHARACTER POINTER 


1235 


2156 


6664 


Cl 1 0* 


ACMD E 




1126 






/IS IN XR1 • 






1236 


2157 


53 63 




JMP Cl 25 


/GO SET LINK BIT. 


1127 






/ 








1237 


21 60 


1505 


Cl 15* 


TAD I A200 


/WRITE NEXT WORD. 


1 128 


2024 


0000 


B765* 


0 






1238 


21 61 


2105 




ISZ A200 




1129 


2025 


7100 




CLL 




/CLEAR LINK BIT. 


1239 


21 62 


667 4 


Cl 20* 


OTB E 




1130 


2026 


1017 




TAD A030 




/SET UP SOURCE WORD ADDRESS. 


1240 


21 63 


7320 


Cl 25* 


CLA STL 


/SET LINK BIT ON. 


1131 


2027 


1162 




TAD A390 






1241 












1132 


2030 


7010 




RAR 






1242 


21 64 


67 32 


Cl 30* 


SDCL F 


/TEST FOR WRITE- CALL ON C-F F. 


1133 


2031 


302 6 




DCA A0 65 






1243 


21 65 


5377 




JMP Cl 55 


/IF NOT* GO TEST C-F G* 


1134 


2032 


142 6 




TAD I A065 




/LOAD SOURCE WORD. 


1244 


2166 


21 1 6 




ISZ A225 


/BUMP 1-0 COUNT. 


1135 


2033 


7430 




SZL 




/TEST FOR ODD CHARACTER. 


1245 


21 67 


5373 




JMP Cl 40 


/IF NON-ZERO* WRITE NEXT WORD. 


1136 


2034 


5240 




JMP B770 




/IF SO* GO MASK OFF CHARACTER. 


1246 


2170 


7130 




STL RAR 


/ISSUE WRITE-STOP COMMAND. 


1137 


2035 


7012 




RTR 




/SWAP SOURCE WORD. 


1247 


2171 


6724 


Cl 35* 


ACMD F 




1138 


2036 


7012 




RTR 






1248 


2172 


5376 




JMP Cl 50 


/GO SET LINK BIT. 


1139 


2037 


7012 




RTR 






1249 


2173 


151 5 


Cl 40* 


TAD I A220 


/WRITE NEXT WORD. 


1140 


2040 


01 66 


B770* 


AND A405 




/MASK OFF 6-BIT CHARACTER. 


1250 


2174 


2115 




ISZ A220 




1 141 


2041 


5624 




JMP I B765 




/EXIT. 


1251 


2175 


6734 


Cl 45* 


OTB F 




1142 






/ 








1252 


2176 


7320 


Cl 50* 


CLA STL 


/SET LINK BIT ON. 


1143 






/SUBROUTINE TO SET 


UP 


AND EXECUTE CARTRI FILE OPCODES. 


1253 












1144 






/ 








1254 


2177 


6772 


Cl 55* 


SDCL G 


/TEST FOR WRITE- CALL ON C-F G. 


1145 


2042 


0000 


B77 5* 


0 






1255 


2200 


5347 




JMP C325 


/IF NOT* GO TEST FOR ANY I-O. 


1146 


2043 


3551 




DCA I A340 




/SAVE A-C. 


1256 


2201 


2126 




ISZ A245 


/BUMP 1-0 COUNT. 


1 147 


2044 


1027 




TAD A070 




/ISOLATE C-F HARDWARE ADDRESS. 


1257 


2202 


5206 




JMP Cl 65 


/IF NON-ZERO* WRITE NEXT WORD. 


1148 


2045 


01 65 




AND A400 






1258 


2203 


7130 




STL RAR 


/ISSUE WRITE- STOP COMMAND. 


1149 


2046 


7104 




CLL RAL 






12 59 


2204 


67 64 


Cl 60* 


ACMD G 




1150 


2047 


1 642 




TAD I B775 




/ADD C-F OPCODE. 


1260 


2205 


5011 




JMP A020 


/GO EXIT. 


1151 


2050 


3252 




DCA B780 




/STORE OPCODE BELOW. 


1261 


220 6 


1525 


Cl 65* 


TAD I A240 


/WRITE NEXT WORD. 


1152 


2051 


1551 




TAD I A340 




/RELOAD A-C. 


12 62 


2207 


2125 




ISZ A240 




1153 


2052 


0000 


B780* 


0 




/EXECUTE C-F OPCODE. 


1263 


2210 


6774 


Cl 70* 


OTB G 




1154 


2053 


2242 




ISZ B775 




/BUMP RETURN ADDRESS. 


12 64 


221 1 


5011 




JMP A020 


/GO EXIT. 



1155 


2054 


5642 




JMP I B775 




/EXIT. 


12 65 






/ 






1156 






/ 








1266 






/READ 


INTERRUPT ROUTINES. 


1157 






/SUBROUTINE TO CHANGE 


TAPE COMMAND BITS FROM 409 6-419 6 


12 67 






/ 






1158 






/FORMAT TO MODEL 


20-40 FORMAT AND VICE-VERSA. THE 


1268 


2212 


6332 


Cl 75* 


SDCL A 


/TEST FOR READ- CALL ON C-F 


1 159 






/BITS 


TO BE CONVERTED 


ARE IN A-C BITS 8-11 AT ENTRY* 


12 69 


2213 


5227 




JMP C195 


/IF NOT* GO TEST C-F B. 


1 1 60 






/THE i 


CONVERTED BITS WILL BE IN A-C BITS 8-11 ON EXIT. 


1270 


2214 


6334 


Cl 80* 


OTB A 


/READ & STORE NEXT WORD. 


1 1 61 






/ 








1271 


2215 


3445 




DCA I A120 




1 1 62 


2055 


0000 


B785* 


0 






1272 


2216 


6324 


Cl 85* 


ACMD A 


/GET C-F TAPES STATUS. 


1 1 63 


2056 


0172 




AND A420 




/MASK OFF TAPE COMMAND BITS. 


1273 


2217 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1 1 64 


2057 


3551 




DCA I A340 




/STORE TAPE COMMAND BITS. 


1274 


2220 


7650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1 1 65 


20 60 


1175 




TAD A430 




/SET LOOP COUNT OF -4. 


1275 


2221 


1046 




TAD A125 


/IF NOT* LOAD 1-0 COUNT. 


1 1 66 


20 61 


3552 




DCA I A345 






127 6 


2222 


7 650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1 1 67 


20 62 


3553 


B790* 


DCA I A350 




/STORE NEW COMMAND BITS. 


1277 


2223 


522 6 




JMP Cl 90 


/.IF SO* GO SET LINK BIT. 


1 1 68 


20 63 


1551 




TAD I A340 




/LOAD OLD COMMAND BITS. 


1278 


2224 


2046 




ISZ A 1 25 


/BUMP 1-0 COUNT. 


1 1 69 


20 64 


7110 




CLL RAR 




/ROTATE BITS 1 PLACE RIGHT. 


1279 


2225 


2045 




ISZ A120 


/BUMP 1-0 POINTER. 


1 170 


20 65 


3551 




DCA I A340 




/STORE OLD COMMAND BITS. 


1280 


222 6 


7120 


Cl 90* 


STL 


/SET LINK BIT ON. 


1 171 


20 66 


1553 




TAD I A3 50 




/LOAD NEW COMMAND BITS. 


1281 












1172 


20 67 


7004 




RAL 




/ROTATE IN NEW BIT. 


1282 


2227 


6432 


Cl 95* 


SDCL B 


/TEST FOR READ- CALL ON C-F 


1 173 


2070 


2552 




ISZ I A345 




/BUMP LOOP COUNT. 


1283 


2230 


5244 




JMP C215 


/IF NOT* GO TEST C-F C. 


1 174 


2071 


52 62 




JMP B790 




/IF NON-ZERO* LOOP BACK. 


1284 


2231 


6434 


C200* 


OTB B 


/READ & STORE NEXT WORD. 


1 175 


2072 


5655 




JMP I B785 




/EXIT. 


1285 


2232 


3455 




DCA I A140 




1 176 














1286 


2233 


6424 


C205* 


ACMD B 


/GET C-F TAPES STATUS. 


1 177 


2073 


7400 


B795* 


D025 




/6-BIT DATA BASE ADDRESS. 


1287 


2234 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1 178 


2074 


0417 


B800* 


0417 




/MODEL 20-40 L-P SEARCH BITS- 


1288 


2235 


7650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1 179 






/ 








1289 


2236 


1056 




TAD A145 


/IF NOT* LOAD 1-0 COUNT. 


1 180 






/WRITE INTERRUPT 


ROUTINES. 


1290 


2237 


7650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1 181 






/ 








1291 


2240 


5243 




JMP C210 


/IF SO* GO SET LINK BIT. 


1 182 


207 5 


6332 


C005* 


SDCL A 




/TEST FOR WRITE-CALL ON C-F A. 


1292 


2241 


2056 




ISZ A145 


/BUMP 1-0 COUNT. 


1 183 


207 6 


5310 




JMP C030 




/IF NOT* GO TEST C-F B. 


1293 


2242 


2055 




ISZ A140 


/BUMP 1-0 POINTER. 


1 184 


2077 


2046 




ISZ A125 




/BUMP 1-0 COUNT. 


1 294 


2243 


7120 


C210* 


STL 


/SET LINK BIT ON. 


1 185 


2100 


5304 




JMP C015 




/IF NON-ZERO* WRITE NEXT WORD. 


1295 












1 186 


2101 


7130 




STL RAR 




/ISSUE WRITE- STOP COMMAND. 


1296 


2244 


6532 


C215* 


SDCL C 


/TEST FOR READ-CALL ON C-F 


1 187 


2102 


6324 


C010* 


ACMD A 






1297 


2245 


52 61 




JMP C235 


/IF NOT* GO TEST C-F D. 


1 188 


2103 


5307 




JMP C025 




/GO SET LINK BIT. 


1298 


2246 


6534 


C220* 


OTB C 


/READ & STORE NEXT WORD. 


1 189 


2104 


1445 


C015* 


TAD I A120 




/WRITE NEXT WORD. 


1299 


2247 


3465 




DCA I A160 




1 190 


2105 


2045 




ISZ A120 






1300 


2250 


6524 


C225* 


ACMD C 


/GET C-F TAPES STATUS. 


1191 


2106 


6334 


C020* 


OTB A 






1301 


2251 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1 192 


2107 


7320 


C025* 


CLA STL. 




/SET LINK BIT ON. 


1302 


2252 


7 650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1 193 














1303 


2253 


10 66 




TAD A165 


/IF NOT* LOAD 1-0 COUNT. 


1 194 


2110 


6432 


C030* 


SDCL B 




/TEST FOR WRITE-CALL ON C-F B. 


1304 


2254 


7650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1195 


211 1 


5323 




JMP C055 




/IF NOT* GO TEST C-F C. 


1 305 


2255 


52 60 




JMP C230 


/IF SO* GO SET LINK BIT. 


1 196 


2112 


2056 




ISZ A145 




/BUMP 1-0 COUNT. 


130 6 


2256 


20 66 




ISZ A1 65 


/BUMP 1-0 COUNT. 


1197 


2113 


5317 




JMP C040 




/IF NON-ZERO* WRITE NEXT WORD. 


1 307 


2257 


20 65 




ISZ A160 


/BUMP 1-0 POINTER. 


1 198 


2114 


7130 




STL RAR 




/ISSUE WRITE-STOP COMMAND. 


1 308 


22 60 


7120 


C230* 


STL 


/SET LINK BIT ON. 


1199 


2115 


6424 


C035* 


ACMD B 






1309 












1200 


2116 


5322 




JMP C050 




/GO SET LINK BIT. 


1310 


22 61 


6632 


C235* 


SDCL D 


/TEST FOR READ-CALL ON C-F 


1201 


2117 


1455 


C040* 


TAD I A140 




/WRITE NEXT WORD. 


1311 


22 62 


5276 




JMP C255 


/IF NOT* GO TEST C-F E. 


1202 


2120 


2055 




ISZ A140 






1312 


22 63 


6634 


C240* 


OTB D 


/READ & STORE NEXT WORD. 


1203 


2121 


6434 


C045* 


OTB B 






1313 


22 64 


3475 




DCA I A180 




1204 


2122 


7320 


C050* 


CLA STL 




/SET LINK BIT ON. 


1314 


2265 


6624 


C245* 


ACMD D 


/GET C-F TAPES STATUS. 


1205 














1315 


2266 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


120 6 


2123 


6532 


C055* 


SDCL C 




/TEST FOR WRITE-CALL ON C-F C. 


131 6 


22 67 


7650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1207 


2124 


5336 




JMP C080 




/IF NOT* GO TEST C-F D. 


1317 


2270 


107 6 




TAD A185 


/IF NOT* LOAD 1-0 COUNT. 


1208 


2125 


20 66 




ISZ A165 




/BUMP 1-0 COUNT. 


1318 


2271 


7 650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1209 


2126 


5332 




JMP C0 65 




/IF NON-ZERO* WRITE NEXT WORD. 


1319 


2272 


5275 




JMP C250 


/IF SO* GO SET LINK BIT. 




1320 


2273 


2076 




ISZ A1 8 5 


/BUMP 1-0 COUNT. 


1430 


2436 


6314 


C410, 


OTSA A 






1 321 


2274 


2075 




ISZ A180 


/BUMP 1-0 POINTER. 


1431 


2437 


3043 




DCA All 5 






1322 


2275 


7120 


C250, 


STL 


/SET LINK BIT ON. 


1432 


2440 


5012 




JMP A025 


/GO EXIT. 




1323 












1433 














1324 


227 6 


6672 


C255, 


SDCL E 


/TEST FOR READ-CALL ON C-F E. 


1434 


2441 


6422 


C41 5, 


SCSC B 


/TEST FOR LOADPOINT ON C-F 


B. 


1325 


2277 


5313 




JMP C275 


/IF NO T, GO TEST C-F F. 


1435 


2442 


5251 




JMP C430 


/IF NOT, GO TEST C-F C. 




1326 


2300 


6674 


C2 60, 


OTB E 


/READ & STORE NEXT WORD. 


1436 


2443 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1327 


2301 


3505 




DCA I A200 




1437 


2444 


6424 


C420, 


ACMD B 


/RESET LPA FLAG. 




1 328 


2302 


6664 


C2 65; 


ACMD E 


/GET C-F TAPES STATUS. 


1438 


2445 


1053 




TAD A135 


/UPDATE DETECTED L-P BITS. 




1329 


2303 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1439 


2446 


6414 


C425, 


OTSA B 






1330 


2304 


7650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1440 


2447 


3053 




DCA A135 






1331 


2305 


1106 




TAD A205 


/IF NOT, LOAD 1-0 COUNT. 


1441 


2450 


5012 




JMP A025 


/GO EXIT. 




1332 


230 6 


7 650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1442 














1333 


2307 


5312 




JMP C270 


/IF SO, GO SET LINK BIT. 


1443 


2451 


6522 


C430, 


SCSC C 


/TEST FOR LOADPOINT ON C-F 


c. 


1334 


2310 


2106 




ISZ A205 


/BUMP 1-0 COUNT. 


1444 


2452 


52 61 




JMP C445 


/IF NOT, GO TEST C-F D. 




1335 


231 1 


2105 




ISZ A200 


/BUMP 1-0 POINTER. 


1445 


2453 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1336 


2312 


7120 


C270, 


STL 


/SET LINK BIT ON. 


1446 


2454 


6524 


C435, 


ACMD C 


/RESET LPA FLAG. 




1337 












1447 


2455 


10 63 




TAD A155 


/UPDATE DETECTED L-P BITS. 




1338 


2313 


6732 


C275, 


SDCL F 


/TEST FOR READ-CALL ON C-F F. 


1448 


2456 


6514 


C440, 


OTSA C 






1339 


2314 


5330 




JMP C295 


/IF NOT, GO TEST C-F G. 


1449 


2457 


30 63 




DCA A155 






1340 


2315 


67 34 


C280, 


OTB F 


/READ & STORE NEXT WORD. 


1450 


24 60 


5012 




JMP A025 


/GO EXIT. 




1341 


231 6 


3515 




DCA I A220 




1451 














1342 


2317 


6724 


C285, 


ACMD F 


/GET C-F TAPES STATUS. 


1452 


2461 


6622 


C445, 


SCSC D 


/TEST FOR LOADPOINT ON C-F 


D. 


1343 


2320 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1453 


2462 


5271 




JMP C460 


/IF NOT, GO TEST C-F E. 




1344 


2321 


7 650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1454 


2463 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1345 


2322 


1116 




TAD A225 


/IF NOT, LOAD 1-0 COUNT. 


1455 


2464 


6624 


C450, 


ACMD D 


/RESET LPA FLAG. 




1346 


2323 


7 650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1456 


2465 


1073 




TAD A17 5 


/UPDATE DETECTED L-P BITS. 




1347 


2324 


5327 




JMP C290 


/IF SO, GO SET LINK BIT. 


1457 


2466 


6614 


C455, 


OTSA D 






1348 


2325 


21 1 6 




ISZ A225 


/BUMP 1-0 COUNT. 


1458 


2467 


3073 




DCA A175 






1349 


2326 


2115 




ISZ A220 


/BUMP 1-0 POINTER. 


1459 


2470 


5012 




JMP A025 


/GO EXIT. 




1350 


2327 


7120 


C290, 


STL 


/SET LINK BIT ON. 


1460 














1351 












1461 


2471 


6662 


C460, 


SCSC E 


/TEST FOR LOADPOINT ON C-F 


E. 


1352 


2330 


6772 


C295, 


SDCL G 


/TEST FOR READ-CALL ON C-F G. 


1462 


2472 


5301 




JMP C47 5 


/IF NOT, GO TEST C-F F. 




1353 


2331 


5347 




JMP C325 


/IF NOT, GO TEST FOR ANY 1-0. 


14 63 


2473 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1354 


2332 


6774 


C300, 


OTB G 


/READ & STORE NEXT WDRD. 


1464 


247 4 


6664 


C4 65, 


ACMD E 


/RESET LPA FLAG. 




1355 


2333 


3525 




DCA I A240 




1465 


247 5 


1103 




TAD A195 


/UPDATE DETECTED L-P BITS. 




1356 


2334 


67 64 


C305, 


ACMD G 


/GET C-F TAPES STATUS. 


1466 


247 6 


6654 


C47 0, 


OTSA E 






1357 


2335 


0346 




AND C320 


/MASK OFF READ-READY BITS. 


1467 


2477 


3103 




DCA A195 






1358 


2336 


7650 




SNA CLA 


/TEST FOR RRCC INTERRUPT. 


1468 


2500 


5012 




JMP A025 


/GO EXIT. 




1359 


2337 


1126 




TAD A245 


/IF NOT, LOAD 1-0 COUNT. 


1469 














1360 


2340 


7650 




SNA CLA 


/TEST FOR INPUT OVERFLOW. 


1470 


2501 


6722 


C47 5, 


SCSC F 


/TEST FOR LOADPOINT ON C-F 


F. 


1361 


2341 


5012 




JMP A025 


/IF SO, GO EXIT. 


1471 


2502 


5311 




JMP C490 


/IF NOT, GO TEST C-F G. 




1362 


2342 


2126 




ISZ A245 


/BUMP 1-0 COUNT. 


1472 


2503 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1363 


2343 


2125 




ISZ A240 


/BUMP 1-0 POINTER. 


1473 


2504 


6724 


C480, 


ACMD F 


/RESET LPA FLAG. 




1364 


2344 


5012 




JMP A025 


/GO EXIT. 


1474 


2505 


1113 




TAD A21 5 


/UPDATE DETECTED L-P BITS. 




1365 












147 5 


2506 


6714 


C485, 


OTSA F 






1366 


2345 


2431 


C315, 


C400 


/LOADPOINT ROUTINES ADDRESS. 


147 6 


2507 


3113 




DCA A215 






1367 


2346 


7400 


C320, 


7400 


/READ-READY BIT MASK. 


1477 


2510 


5012 




JMP A025 


/GO EXIT. 




1368 






/ 






1478 














1369 






/TELEPRINTER INTERRUPT ROUTINE. 


147 9 


2511 


67 62 


C490, 


SCSC G 


/TEST FOR LOADPOINT ON C-F 


G. 


1370 






/ 






1480 


2512 


5321 




JMP C505 


/IF NOT, GO TEST KEYBOARD. 




1371 


2347 


7430 


C325, 


SZL 


/TEST FOR ANY 1-0 INTERRUPTS. 


1481 


2513 


1224 




TAD C385 


/LOAD LPA RESET BIT. 




1372 


2350 


5012 




JMP A025 


/IF SO, GO EXIT. 


1482 


2514 


67 64 


C495, 


ACMD G 


/RESET LPA FLAG. 




1373 


2351 


6041 




TSF 


/TEST FOR TELEPRINTER INTERRUPT. 


148 3 


2515 


1123 




TAD A235 


/UPDATE DETECTED L-P BITS. 




1374 


2352 


5745 




JMP I C315 


/IF NOT, GO TEST FOR LOADPOINT. 


1484 


251 6 


6754 


C500, 


OTSA G 







137 5 


2353 


6042 




TCF 


/CLEAR TELEPRINTER FLAG. 


1485 


2517 


3123 




DCA A235 






137 6 


2354 


1135 


C330, 


TAD A280 


/LOAD TELEPRINTER BUFFER PTR. 


148 6 


2520 


5012 




JMP A025 




/GO EXIT. 


1377 


2355 


7040 




CMA 


/COMPLEMENT BUFFER POINTER. 


1487 






/ 








1378 


2356 


7440 




SZA 


/TEST FOR END OF BUFFER. 


1488 






/KEYBOARD- AND UNKNO WN- INTERRUPT ROUTINES. 


1379 


2357 


53 63 




JMP C335 


/IF NOT, GO GET WORD ADDRESS. 


1489 






/ 








1380 


23 60 


1 1 63 




TAD A395 


/RESET TELEPRINTER BUFFER PTR. 


1490 


2521 


6033 


C505, 


KSF KCC 




/TEST FOR KLOWN ON THE KEYBOARD. 


1381 


2361 


3135 




DCA A280 




1491 


2522 


5324 




JMP C510 




/IF NOT, BAD NEWS! 


1382 


23 62 


5354 




JMP C330 


/GO GET 1ST CHARACTER. 


1492 


2523 


5012 




JMP A025 




/IGNORE KEYBOARD KLOWNJ EXIT. 


1383 


2363 


2135 


C335, 


ISZ A280 


/BUMP TELEPRINTER BUFFER PTR. 


1493 


2524 


7 602 


C510, 


CLA HLT 




/UNKNO WJ INTERRUPT! WE’VE BEEN 


1 384 


23 64 


7040 




CMA 


/GET TELEPRINTER WORD ADDRESS. 


1494 


2525 


5324 




JMP C51 0 




/ SCREWED BY GRANNY!!!!! 


1385 


2365 


1 1 62 




TAD A390 




1495 






/ 








138 6 


2366 


7010 




RAR 




149 6 






/MODEL 20-40 SKELETON 


C-F OPCODE TABLE. 


1387 


23 67 


3006 




DCA A007 




1497 






/ 








1388 


2370 


140 6 




TAD I A007 


/LOAD NEXT TELEPRINTER WDRD. 


1 498 


2526 


6032 


D005, 


SDCL 






1389 


2371 


7430 




SZL 


/TEST FOR ODD CHARACTER. 


1499 


2527 


6024 




ACMD 






1 390 


2372 


5376 




JMP C340 


/IF SO, GO MASK OFF CHARACTER. 


1500 


2530 


6034 




OTB 






1391 


2373 


7012 




RTR 


/SWAP TELEPRINTER WORD. 


1501 


2531 


6032 




SDCL 






1392 


2374 


7012 




RTR 




1502 


2532 


6034 




OTB 






1393 


2375 


7012 




RTR 




1503 


2533 


6024 




ACMD 






1394 


237 6 


01 66 


C340, 


AND A405 


/MASK OFF 6-BIT CHARACTER. 


1504 


2534 


6022 




SCSC 






1395 


2377 


7440 




SZA 


/TEST FOR END OF MESSAGES. 


1505 


2535 


6024 




ACMD 






1396 


2400 


5203 




JMP C345 


/IF NOT, GO ADD -40. 


1 506 


2536 


6014 




OTSA 






1397 


2401 


3135 




DCA A280 


/CLEAR TELEPRINTER BUFFER POINTER. 


1507 


2537 


0000 




0 






1398 


2402 


5012 




JMP A025 


/GO EXIT. 


1508 






/ 








1399 


2403 


1223 


C345, 


TAD C380 


/ADD -40 OCTAL. 


1509 






/409 6-419 6 SKELETON 


C-F OPCODE TABLE. 


1400 


2404 


7500 




SMA 


/TEST FOR CODES 40-77. 


1510 






/ 








1401 


2405 


521 6 




JMP C355 


/IF SO, GO RECREATE CHARACTER. 


1511 


2540 


6021 




SWWC 






1402 


240 6 


1 174 




TAD A427 


/ADD +4. 


1 512 


2541 


6012 




WSPC 






1403 


2407 


7510 




SPA 


/TEST FOR CODES 1-33. 


1513 


2542 


6024 




LTB 






1404 


2410 


5215 




JMP C350 


/IF SO, GO RECREATE CHARACTER. 


1514 


2543 


6032 




SRWC 






1405 


241 1 


1221 




TAD C3 65 


/GET SPECIAL-CHARACTER ADDRESS. 


1515 


2544 


6034 




OTB 






140 6 


2412 


3006 




DCA A007 




151 6 


2545 


6004 




0TSA1 






1407 


2413 


140 6 




TAD I A007 


/LOAD SPECIAL CHARACTER. 


1517 


2546 


601 1 




SLPA 






1408 


2414 


5217 




JMP C3 60 


/GO PRINT SPECIAL CHARACTER. 


1518 


2547 


6022 




RSFF 






1409 


2415 


1222 


C350, 


TAD C370 


/RECREATE CODES 101-133. 


1519 


2550 


6004 




0TSA1 






1410 


241 6 


1 171 


C355, 


TAD A41 5 


/RECREATE CODES 040-077. 


1520 


2551 


0000 




0 






141 1 


2417 


604 6 


C360, 


TLS 


/PRINT NEXT CHARACTER. 


1521 






/ 








1412 


2420 


501 1 




JMP A020 


/GO EXIT. 


1522 






/INTERRUPT ROUTINES 


OPCODE ADDRESS TABLE. 


1413 












1523 






/ 








1414 


2421 


2425 


C3 65, 


C390 


/ADDRESS OF SPECIAL CHARACTERS. 


1524 


2552 


207 5 


D01 0, 


C005 




/C-F A OPCODE ADDRESSES. 


1415 


2422 


0074 


C370, 


0074 


/CODES 101-133 RESET WORD. 


1 525 


2553 


2102 




C010 






141 6 


2423 


7740 


C380, 


7740 


/CONSTANT -40 OCTAL. 


1526 


2554 


2106 




C020 






1417 


2424 


0100 


C385, 


0100 


/4096-41 96 LPA RESET BIT. 


1527 


2555 


2212 




C175 






1418 


2425 


0007 


C390, 


0007 


/BELL CODE CCODE 34). 


1528 


2556 


2214 




C180 






1419 


242 6 


0012 




0012 


/LINE-FEED CCODE 35). 


1529 


2557 


221 6 




C185 






1420 


2427 


0015 




0015 


/CARRIAGE- RETURN CCODE 3 6). 


1530 


2560 


2431 




C400 






1421 


2430 


0377 




0377 


/RUBOUT CCODE 37). 


1531 


2561 


2434 




C405 






1422 






/ 






1532 


2562 


2436 




C41 0 






1423 






/LOADPOINT INTERRUPT 


ROUTINES. 


1533 


2563 


2110 




C030 




/C-F B OPCODE ADDRESSES. 


1424 






/ 






1534 


2564 


2115 




C035 






1425 


2431 


6322 


C400, 


SCSC A 


/TEST FOR LOADPOINT ON C-F A. 


1535 


2565 


2121 




C045 






1426 


2432 


5241 




JMP C41 5 


/IF NOT, GO TEST C-F B. 


153 6 


2566 


2227 




Cl 95 






1427 


2433 


1224 




TAD C385 


/LOAD LPA RESET BIT. 


1537 


2567 


2231 




C200 






1428 


2434 


6324 


C405, 


ACMD A 


/RESET LPA FLAG. 


1538 


2570 


2233 




C205 






1429 


2435 


1043 




TAD All 5 


/UPDATE DETECTED L-P BITS. 


1539 


2571 


2441 




C41 5 








1540 2572 2444 C420 

1541 2573 2446 C425 

1542 2574 2123 C055 /C-F C OPCODE ADDRESSES. 

1543 2575 2130 C060 

1544 2576 2134 C070 

1545 2577 2244 C215 

1546 2600 2246 C220 

1547 2601 2250 C225 

1548 2 602 2 451 C430 

1549 2603 2454 C435 

1550 2604 2456 C440 

1551 2605 2136 C080 /C-F D OPCODE ADDRESSES. 

1552 2606 2143 C085 

1553 2607 2147 C095 

1554 2610 2261 C235 

1555 2611 2263 C240 

1556 2612 2265 C245 

1557 2613 2461 C445 

1558 2614 2464 C450 

1559 2615 2466 C455 

1560 2616 2151 C105 /C-F E OPCODE ADDRESSES. 

1561 2617 2156 C110 

1562 2620 2162 C120 

1563 2621 2276 C255 

1564 2 622 2300 C2 60 

1565 2623 2302 C265 

1566 2 624 2471 C4 60 

1567 2 62 5 2474 C465 

1568 2 62 6 247 6 C470 

1569 2 627 2164 Cl 30 /C-F F OPCODE ADDRESSES. 

1570 2630 2171 C135 

1571 2631 2175 C145 

1572 2632 2313 C275 

1573 2633 2315 C280 

1574 2634 2317 C285 

1575 2635 2501 C475 

157 6 2 63 6 2504 C480 

1577 2637 2506 C485 

1578 2640 2177 Cl 55 /C-F G OPCODE ADDRESSES. 

1579 2641 2204 Cl 60 

1580 2642 2210 C170 

1581 2643 2330 C295 

1582 2644 2332 C300 

1583 2645 2334 C305 

1584 2646 2511 C490 

1585 2647 2514 C495 

1586 2650 2516 C500 

1587 / 

1588 /CONSTANT INPUT-OUTPUT DATA PATTERN. THE FIRST WORD IS 

1589 /FILLED DURING INPUT-OUTPUT WITH THE C-F RECORD NUMBER. 

1590 / 

2651 0000 

2 652 0000 

2653 0003 

2654 0014 



2 655 00 60 

2656 0077 

2657 0140 

1591 2660 0220 D015, 00001 00005 00035 00145 00605 00775 01405 0220 
2661 0300 

2 662 03 60 

2663 0410 

2664 1004 

2665 1400 

2666 1463 
2 667 1777 

1592 2670 2002 03005 03605 04105 10045 14005 14635 17775 2002 

2 67 1 2 5 2 5 

2672 2526 

2673 2531 

2674 2545 

2675 2552 
2 67 6 2 625 
2 677 2 645 

1593 2700 3125 25255 25265 25315 25455 25525 26255 26455 3125 

2701 3146 

2702 3252 

2703 3637 

2704 3776 

2705 4001 

2706 4525 

2707 4631 

159 4 27 1 0 4 6 5 2 3 1 4 65 3 2 525 3 6 3 75 3 7 7 65 4 0015 4 5 2 55 4 63 1 5 4 652 

2711 5132 

2712 5152 

2713 5225 

2714 5232 

2715 5246 

2716 5251 

2717 5252 

1595 2720 5775 51325 51525 52255 52325 52465 52515 5252 5 5775 

2721 6000 

2722 6314 

2723 6337 

2724 6773 

2725 7367 

2726 7417 

2727 7477 

1596 2730 7557 60005 63145 63375 67735 73675 74175 74775 7557 

2731 7700 

2732 7717 

2733 7763 

2734 7774 

2735 7777 

1597 2736 7763 77005 77175 77635 77745 77775 7763 

1598 D020* *3 600 /I-O BUFFERS START HERE. 

1599 D025=. +• /MESSAGE DATA BASE ADDRESS. 

1 600 / 

1601 /TITLE MESSAGE. 

1 602 / 



3600 3737 

3601 3736 

3602 3535 
360 3 2 4 2 2 

3604 1155 

3605 0401 
3 60 6 2401 

1603 3607 4070 D030> 37375 37365 35355 24225 11555 04015 24015 4070 
3610 5560 
3 611 60 66 

3612 0255 

3613 0211 

3614 1640 

3615 0301 

3616 2224 

1 604 3 617 2211 55605 60665 02555 02115 16405 03015 22245 2211 

3620 0 611 

3621 1405 

3622 4004 

3623 1101 

3624 071 6 

3625 1723 

3626 2411 

1605 3627 0373 0 6115 14055 40045 11015 071 65 17235 241 15 0373 

3630 4061 
3 631 6157 
3 632 60 61 

3633 57 67 

3634 6156 

3635 3635 

1 60 6 3 63 6 0037 40615 61575 60615 5 7675 6156 5 3 6355 0037 

1 607 / 

1608 /NO C-F ACTIVE MESSAGE (1ST CHARACTER ABOVE). 

1609 / 

3 637 3737 

3640 1617 

3641 4003 

3642 5706 

3643 4001 

3644 0324 

3645 1126 

1610 3646 0556 D035, 37 3 7 5 1 617 5 4 0 0 35 5 7 0 65 4 0 0 1 5 0 3 2 45 112 65 0 5 5 6 
3647 3635 

1611 3650 0037 36355 0037 

1 612 / 

1613 /END-OF-JOB MESSAGE (1ST CHARACTER ABOVE). 

1614 / 

3651 3737 

3652 3505 
3 653 1 604 

3654 4017 

3655 0640 

3656 1217 

3657 0256 

1615 3660 3635 D040 , 37375 35055 1 6045 40175 0 6405 12175 02565 3 635 



1 61 6 3661 0037 0037 

1617 / 

1618 /BELL MESSAGE (1ST CHARACTER ABOVE). 

1619 / 

3662 3737 

3663 3434 

3664 3434 

3665 3434 

3666 3434 
3 667 3434 
3670 3434 

1 620 3671 3434 D045, 37375 34345 34345 34345 34345 34345 34345 3434 

3672 3434 

3673 3434 

3674 3434 

1 62 1 3 67 5 0 0 1 6 3 4 345 3 4 3 4 5 3 4 345 0 0 1 6 

1 622 / 

1 623 /NOT-READY MESSAGE (1ST CHARACTER ABOVE). 

1 624 / 

367 6 1 7 2 4 
3 677 4022 

3700 0501 

3701 0431 

1 625 3702 5600 D050, 17245 40225 05015 04315 5600 

1 626 / 

1 627 /FILE-PROTECTED MESSAGE. 

1 628 / 

3703 0611 

3704 1405 

3705 5520 

3706 2217 

3707 2405 

3710 0324 

3711 0504 

1629 3712 5600 06115 14055 55205 22175 24055 03245 05045 5600 

1 630 / 

1631 /NOT-ON-LINE MESSAGE. 

1 632 / 

3713 1617 

3714 2440 

3715 1716 

371 6 4014 

3717 1116 
3720 0556 

1 63 3 3 7 2 1 0 0 2 3 1 617 5 2 4 405 1 7 1 65 40 1 45 11165 0 5 5 65 0 0 2 3 

1 634 / 

1635 /TOO -MANY- ERRORS MESSAGE (1ST CHARACTER ABOVE). 

1 636 / 

3722 2417 

3723 2020 

3724 0504 

3725 7340 

3726 2417 

3727 1740 
3730 1501 




1 683 
1 684 



/ERROR- W3RD MESSAGE CIST CHARACTER ABOVE) 



1 637 3731 1631 D055, 2417) 2020) 0504; 73401 241 7J 1 7405 15015 1 631 

3732 4005 

3733 2222 

3734 1722 

3735 2356 

1 638 37 3 6 0 0 2 4 4 0 0 55 2 2 2 2 5 1 7 2 2 5 2 3 5 65 0 0 2 4 

1 639 / 

1640 /TIMED-OUT MESSAGE. 

1 641 / 

3737 1115 

3740 0504 

3741 4017 

3742 2524 

1 642 3743 5600 D0 60., 11 155 05045 40175 25245 5600 
1 643 / 

1644 /FOUND-NO-LOADPOINT MESSAGE. 

1 645 / 

3744 0 617 

3745 2516 

3746 0440 

3747 1 617 

3750 4014 

3751 5720 

1 646 3752 5600 D065.» 06175 251 65 04405 1 6175 40145 57205 5600 
1647 / 

1 648 /FLASHED-LOADPOINT MESSAGE. 

1 649 / 

3753 0614 
37 54 0123 

3755 1005 

3756 0440 
37 57 1457 
37 60 2056 

1 650 37 61 0022 D070, 06145 01235 10055 04405 14575 20565 0022 
1 651 / 

1652 /READ-0 VER-LOADPO INT MESSAGE CIST CHARACTER ABOVE). 

1 653 / 

37 62 0501 
37 63 0440 
37 64 1726 
37 65 0522 
3766 4014 
37 67 5720 

1 654 3770 5600 D075, 0 5 0 1 5 0 4 405 1 7 2 65 0 5 2 2 5 40 1 45 5 7 2 0 5 5 600 

1 655 / 

1 656 /TAPE- DISABLED MESSAGE. 

1 657 / 

3771 4040 

3772 2401 

3773 2005 

3774 4004 

3775 1123 

3776 0102 

3777 1405 

1658 4000 0456 D080, 40405 24015 20055 40045 1 1235 01025 14055 0456 



4001 3635 

1 659 4002 0014 36355 0014 

1 660 / 

1661 /LAST-RECORD MESSAGE CIST CHARACTER ABOVE). 

1 662 / 

4003 2275 

4004 0000 

4005 0000 

1663 4006 5600 D085, 22755 00005 00005 5600 

1 664 / 

1665 /PASS NUMBER MESSAGE. 

1 666 / 

4007 3737 

4010 3735 

4011 2001 

4012 2323 

4013 4000 

4014 0000 

4015 0056 

1 667 401 6 3635 D090, 37375 37355 20015 23235 40005 00005 00565 3635 
1 668 4017 0037 0037 

1 669 / 

1670 /RUBOUT-T MESSAGE PREFIX CIST CHARACTER ABOVE). 

1 671 / 

4020 3737 

4021 2400 

4022 0000 

4023 0000 

1672 4024 0000 D095* 37375 24005 00005 00005 0000 
1 673 / 

1674 /LINE-FEED MESSAGE. 

1675 / 

4025 3737 

4026 3735 

1676 4027 0022 D100, 37375 37355 0022 

1 677 / 

1 678 /READ-ERROR LOGOUT AREA CIST CHARACTER ABOVE). 

1 679 / 

4030 0000 

4031 0000 

4032 7240 

4033 4014 

4034 2775 

4035 0000 

4036 0000 

1680 4037 4003 D105, 00005 00005 72405 40145 27755 00005 00005 4003 

4040 0575 

4041 0000 

4042 0000 

4043 4022 

4044 0575 

4045 0000 

4046 0000 
1 681 4047 0040 
1 682 / 



4050 0000 

4051 0000 

168 5 4 0 52 0 0 40 D110J 00005 00005 0040 
1 68 6 / 

1687 /ASCII X’S MESSAGE CIST CHARACTER ABOVE). 

1 688 / 

4053 3030 

4054 3030 

1 689 4055 0006 D115> 30305 30305 0006 

1 690 / 

1691 /FAILED- TO -START MESSAGE CIST CHARACTER ABOVE). 

1 692 / 

4056 0111 

4057 1405 
40 60 0 4 40 

4061 2417 

4062 4023 
40 63 2401 
40 64 2224 

1693 4065 4011 D117* 01115 14055 04405 24175 40235 24015 22245 4011 
4066 5517 

1 694 4067 5600 55175 5600 

1695 D1 20= • +» -D025 /STARTING TELEPRINTER BUFFER ADDR. 



05755 00005 00005 40225 05755 00005 00005 0040 




